Дано натуральное число N (водиться с клавиатуры). Написать программу, выводящую на экран натуральные числа от 1 до N

Question

Федя

11 января, 12:24

+3

Ответы (1)

Знаете ответ на вопрос?

Максентий · Answer 1

Program Task;

Var i, N: Integer;

Begin

Write ('N = ') ;

ReadLn (N) ;

For i : = 1 To N Do

Write (i, ' ') ;

ReadLn;

End.