Question

Тема "Циклы"
Составить программу для вычисления суммы всех двузначных чисел.

Answer 1

program chisla;
uses crt;
var a,b,s : integer;
begin
for a:=10 to 99 do
begin
S:=S+a;
end;
writeln('Сумма все двузначных чисел равна',s);
end.