Question

Вычислить сумму (S= S + X) двухзначных натуральных (от 10 до 99) чисел.

Answer 1

var s,x: integer;
begin
for x:=10 to 99 do s:=s+x;
writeln(s);
end.