Вопрос от посетителя:
Найти сумму целых двузначных чисел,кратных 5. Составить блок-схему алгоритма и программу.
Илюха отвечает:
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.