Предмет: Информатика,
автор: DobriyGrek
составьте алгоритм вычисления суммы всех натуральных чисел,не превышающих заданного натурального числа n с помощью while,а не for в Pascal Abc.net
Ответы
Автор ответа:
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.
Автор ответа:
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.
Приложения:
![](https://files.topotvet.com/i/e1b/e1b4f0d8c6d5d7824d7a313530f28a63.jpg)
Похожие вопросы
Предмет: Английский язык,
автор: shaitanchik
Предмет: Английский язык,
автор: marinka19995
Предмет: Английский язык,
автор: KatnissEverdin
Предмет: Математика,
автор: LOLLOLOLSAGHA
Предмет: Математика,
автор: solokha24