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

Question

Зоя

25 марта, 06:41

+3

Ответы (1)

Знаете ответ на вопрос?

Ксена · Answer 1

program summa;

var i, suma:integer;

begin

i:=10;

while i<16 do

begin

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

end;

end.