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

Question

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

Lizakisa777 · Answer

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.