Дано натуральное число. Вывести ** экран все натуральные числа до заданного включительно

Question

Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно

Comments

На будущее: "до ... включительно" - это не рекомендуемая фраза. В данном случае лучше писать "не превышающие заданного". Кстати, такая формулировка подсказывает, как построить цикл)))

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  1.To(ReadInteger('n=')).Print
end.

Тестовое решение
n= 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Comments

прикольно. Спасибо

Answer 2

Var
    i, n: integer;

begin
    readln(n);
    for i := 1 to n do
    write(i,' ');
end.