Найдите сумму всех натуральных чисел на промежутке - вопрос №25792161 от faas1501 13.05.2022 12:05

Question

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

faas1501 · 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....