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

Question

Полина

30 декабря, 16:49

+5

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