Cоставить программу в Паскале: напечатать первые n натуральных чисел. n вводится с клавиатуры. Только с помощью оператора repeat

Question

Галактион

24 апреля, 14:53

+4

Ответы (1)

Знаешь ответ?

Сусанна · Answer 1

Var n, a:integer;

Begin

a:=1;

write ('Введите n:'); readln (n);

repeat

write (a,', ');

a:=a+1; n:=n-1;

until (n=0);

End.