Предмет: Информатика, автор: DobriyGrek

составьте алгоритм вычисления суммы всех натуральных чисел,не превышающих заданного натурального числа n с помощью while,а не for в Pascal Abc.net​

Ответы

Автор ответа: blemtoze
1

Ответ:

program summa;

var sum, i, n:LongInt;

begin

ReadLn(n);

i:=1;

sum := 0;

while (i<=n) do

begin

sum:=sum+i;

i:=i+1;

end;

WriteLn(sum);

end.

Автор ответа: BobbyFresnel
0

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var (i, s) := (1, 0);

 while i <= n do

 begin

   s += i;

   i += 1

 end;

 Print(s);

end.

Приложения:
Похожие вопросы
Предмет: Математика, автор: solokha24