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

Question

Информатика

Вета

24 октября, 12:37

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

+2

Ответы (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.