Question

Помогите:3 Вывести на экран все натуральные числа до заданного. (в паскале)

Answer 1

Var i, n: integer;
begin  write('Введите число: '); readln(n);   
for i := 0 to n do   begin   
write(i, ' ');
end;
end.

Answer 2

В Pascal можно вывести на экран все натуральные числа до заданного с помощью цикла. Вот пример кода:

program PrintNaturalNumbers;
var
  n, i: integer;
begin
  writeln('Введите число:');
  readln(n);
  
  writeln('Натуральные числа до ', n, ':');
  for i := 1 to n do
    writeln(i);
end.

В этом примере мы сначала запрашиваем у пользователя число `n`, до которого нужно вывести натуральные числа. Затем мы используем цикл `for` для вывода чисел от 1 до `n` на экран.

Например, если пользователь вводит число 5, то на экране будет выведено:

Натуральные числа до 5:
1
2
3
4
5

Примечание: Данный код приведен в синтаксисе Pascal. Если вы используете другой диалект Pascal, синтаксис может отличаться.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.