Задание:
Cоставить программу в Паскале: напечатать первые n натуральных чисел. n вводится с клавиатуры. Только с помощью оператора repeat
Решение:
Var n,a: integer; Begin a: =1; write ('Введите n: '); readln (n); repeat write (a,', '); a: =a+1; n: =n-1; until (n=0); End.
Знаете другой ответ?