1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100
10-11 класс
|
элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
1)
var i,k:integer;
begin k:=0;
for i:=50 to 500 do begin
if (i mod 11=0)and(i mod 13=0) then k:=k+1;
end;writeln(k);
end.
Другие вопросы из категории
1) 5. 2) 2. 3) 3. 4) 4.
котором живет ваш друг — восьмиэтажный.Какое количество информации несет сообщение о том, что он живёт наЗ этаже? №3. Информационный объем одной буквы 4 бита. Найти мощность алфавита. №4. Информационное общение объемом 1,5 Кбайт содержит 3072 символа. Сколько символов содержит алфавит, при помощи которого записано это сообщение?
Читайте также
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.