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

program Natural_Number;
var
i, n: word;
begin
writeln('Введите число от 1 до 60000');
readln(n);
writeln('Ряд натуаральных чисел до ',n,' = ');
for i := 1 to n do
begin
write(i, ' ')
end
end.​

Armen200012    1   17.04.2020 18:55    2