Составьте программу вычисления суммы двухзначных чисел, кратных 7 и 9

Question

Информатика

Павла

2 августа, 21:46

Составьте программу вычисления суммы двухзначных чисел, кратных 7 и 9

+2

Ответы (1)

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

Калида · Answer 1

Var

i, n, sum: integer;

begin

sum:=0;

for i:=10 to 99 do

if (i mod 7=0) and (i mod 9=0) then

begin

sum:=sum+i;

end;

writeln ('сумма чисел кратных 7 и 9=', sum) ;

end.