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

Question

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

Answer 1

Program summ;
  var    i: byte;
    sum: integer;
begin
i := 10;
while i < 99 do
begin
sum := sum + i;
inc(i);
end;
write('Сумма всех 2-значных чисел: ',sum);
end.

Comments

Мы не много по - другому пишем, но все равно большое спасибо )