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

Question

Информатика

Ольгуша

6 февраля, 05:39

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

+3

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