Григорий
6 год назад
Составьте программу вычисления суммы двухзначных чисел, кратных 7 и 9
ОТВЕТЫ
Батурин
Aug 2, 2019
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.
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.
260
