Question

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

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

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

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.