1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100 элементов. Заполнить его с клавиатуры. Найти:

а) удвоенную сумму положительных элементов;

б) вывести индексы тех элементов, значения которых больше значения предыдцщего элемента (начиная со второго)

Question

Косьма

30 ноября, 17:34

+1

Ответы (1)

Знаете ответ на вопрос?

Егоша · Answer 1

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.