Задача 75786 написать программу которая подсчитывает...

65790ba142718a6f375fd583

2/11/2024 3:08:11 AM

написать программу которая подсчитывает сумму натуральных чисел от 1 до n (3 способами: while, repeat until, for) Pascal

5f282cfba9074b3a3bc0f013

2/11/2024 8:56:02 AM

★

Решение №1 (используя "while"):

```
program NaturalSum;
var
i, n, sum:integer;
begin
write('Введите число n: ');
readln(n);
i:=1;
sum:=0;
while i<=n do
begin
sum:=sum+i;
i:=i+1;
end;
writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', sum);
readln;
end.
```

Решение №2 (используя "repeat until"):

```
program NaturalSum2;
var
i, n, sum:integer;
begin
write('Введите число n: ');
readln(n);
i:=1;
sum:=0;
repeat
sum:=sum+i;
i:=i+1;
until i>n;
writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', sum);
readln;
end.
```

Решение №3 (используя "for"):

```
program NaturalSum3;
var
i, n, sum:integer;
begin
write('Введите число n: ');
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', sum);
readln;
end.
```

Примечание: Пользователю предлагается ввести число n, затем программа вычисляет сумму всех натуральных чисел от 1 до n, используя три различных цикла (while, repeat until и for), и выводит результат на экран.