Question

составить программу,которая вычисляет сумму натуральных чисел от 10 до 15 и выводит на экран результат.Надо не через for i,а через while

Answer 1

program summa;

var i,suma:integer;

begin

   i:=10;

   while i<16 do

   begin

    suma:=suma+1; i:=1+i;

   end;

end.