Составте пожалуйста программу вычисления суммы всех двузначных чисел.
Answers & Comments
RaceStudio
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.
2 votes Thanks 0
AnneSam
Мы не много по - другому пишем, но все равно большое спасибо )
Answers & Comments
var i: byte;
sum: integer;
begin
i := 10;
while i < 99 do
begin
sum := sum + i;
inc(i);
end;
write('Сумма всех 2-значных чисел: ',sum);
end.