1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100 элементов. Заполнить его с клавиатуры. Найти:а) удвоенную сумму положительных...
1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100 элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы