Предмет: Информатика, автор: maxon2397

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

Ответы

Автор ответа: призрак9V
0

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.

Похожие вопросы
Предмет: Биология, автор: vanneettii