Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно
Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно
Гость
Ответ(ы) на вопрос:
Гостьvar
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.
Гость// 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
Не нашли ответ?
Похожие вопросы