Question

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА ДАЮ 20 БАЛЛОВ
Написать алгоритм для решения задачи: «Найти сумма всех двузначных чисел», используя цикл «Пока»

Answer 1

program Hello;

var i,sum:integer;

begin

i:=10;

sum:=0;

While(i<100)do begin

   sum+=i;

   i+=1;

   end;

 writeln ('Сумма двузначных элементов равно ',sum)

end.