Найти сумму чисел кратных семи от 10 до 600

Question

Информатика

Вета

4 сентября, 06:06

Найти сумму чисел кратных семи от 10 до 600

+4

Ответы (1)

Знаете ответ?

Алека · Answer 1

program P1;

var

i, summ : integer;

begin

summ : = 0;

for i : = 10 to 600 do

if i mod 7 = 0 then

summ : = summ + i;

writeln ('Otvet: ', summ) ;

readln;

readln;

end.