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

Question

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

Answer 1

Var i, s: integer;
begin
s:=0;
for i:=10 to 99 do
s:=s+i;
writeln('Summ = ', s);
end.