Найдите сумму всех натуральных чисел на промежутке - вопрос №12579616 от VAMPIRKILLER 28.01.2020 10:29

Question

Информатика: Найдите сумму всех натуральных чисел на промежутке от 1 до n. число n вводится на клавиатуре.составьте на паскале с циклом while

VAMPIRKILLER · Answer

Varn,i,sum:integer;begin readln(n);sum:=0;i:=0;while i n do  begin  i:=i+1;  sum:=sum+i;end;writeln(sum);end....