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

anay3 anay3    2   05.06.2019 17:40    2

Ответы
fyz070504 fyz070504  06.07.2020 06:49
Var
n,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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика