Question

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

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.