Question

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

Answer 1

Var i: Integer, sum: Integer;

Begin

 for i := 13 to 99 do

   if (mod(i, 13) = 0)

     sum := sum + i;

 write( sum );

end.