Question

дано натуральное число n составить программу нахождения суммы всех чисел от 1 до n. Решить задачу изпользуя цикл REPEAT, заранее спасибо)

Answer 1

var
i, n,l: integer;
begin
write ('Введите число: ');
readln (n);
i := 1;
repeat
l:=l+i;
inc(i);
until i > n;
write('Сумма всех чисел равна: ', l);
end.

Answer 2

Конечно, давайте напишем программу на языке программирования, используя цикл `REPEAT`, для нахождения суммы всех чисел от 1 до заданного натурального числа `n`. Ниже представлен пример кода на псевдокоде:

Ввод: n (натуральное число)
Сумма := 0
i := 1

Повторять
    Сумма := Сумма + i
    i := i + 1
Пока i <= n

Вывод: Сумма

Давайте теперь реализуем этот алгоритм на примере конкретного языка программирования, например, на Python:

# Ввод натурального числа n
n = int(input("Введите натуральное число n: "))

# Инициализация суммы
сумма = 0

# Цикл с использованием REPEAT
i = 1
while i <= n:
    сумма += i
    i += 1

# Вывод результата
print("Сумма чисел от 1 до", n, "равна", сумма)

Этот код сначала запрашивает у пользователя ввод натурального числа `n`, затем использует цикл `REPEAT` для нахождения суммы всех чисел от 1 до `n` и выводит результат.