Question

Составьте программу вычисления суммы всех двузначных чисел Паскаль Через While

Answer 1

var

  a,s: integer;

begin 

  a:=10;

  while a<=99 do begin 

    s:=s+a;

    a+=1;

  end;

  writeln(s);

end.