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

Question

Онисим

3 сентября, 19:08

+1

Ответы (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.