Question

Найти сумму целых двузначных чисел,кратных 5. Составить блок-схему алгоритма и программу.

Answer 1

program xxx;

   var i, s : integer;

begin

  s:=0;

  for i:= 10 to 99 do

    if i mod 5 = 0 then s:=s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.