Урок 12.1 Задача 1
Primary tabs
Вывести на экран все числа от 1 до N с помощью цикла repeat/until.
Решение:
program Project1; var q, n: integer; begin writeln('введите целое число'); readln(n); q:=1; repeat write(q, ' '); q:= q + 1 until q > n; readln(); end.
- Log in to post comments
- 347 reads
vedro-compota
Thu, 01/19/2023 - 17:22
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)