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

Question

Информатика

Василиса

10 марта, 19:02

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

+4

Ответы (1)

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

Митра · 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.