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

Ответы 1

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

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years