Напишите программу которая вычисляет сумму первых n натуральных чисел через оператор while

shurik23021983 shurik23021983    1   20.07.2019 05:30    0

Ответы
Aruuuuuuuu Aruuuuuuuu  03.10.2020 08:30
Var
  n,c:integer;
Begin
  Write('Введите число ');
  Readln(n);
  Write('Сумма чисел от 1 до ',n,' равна ');
  While n<>0 do Begin
    c:=c+n;
    n:=n-1;
  End;
  Write(c);
End.
ПОКАЗАТЬ ОТВЕТЫ
Арте2281337 Арте2281337  03.10.2020 08:30
Var s,i,n:integer;

begin
  readln(n);

//цикл while
  s:=0;
  i:=0;
  while i<n do begin
     i:=i+1;
     s:=s+i;
  end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика