Составте пожалуйста программу вычисления суммы всех двузначных чисел.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
