Дан диапазон от 1 до 1000,вывести ** экран все числа которые кратны 7 и одновременно...

Question

Дан диапазон от 1 до 1000,вывести на экран все числа которые кратны 7 и одновременно 11.найти сумму этих чисел и количество,

Answer 1

var i, b, c: integer;

begin

b:=0;

c:=0;

for  i:=1 to 1000 do

begin

if (i mod 7=0) and (i mod 11=0) then 

begin

b:=b+1;

c:=c+i;

end;

end;

writeln('summ=',c,' kol=',b)

end.