Урок 21 Задача 2

Primary tabs

Submitted by Patrick on Sun, 01/08/2023 - 11:41

Forums:

Урок 21 Задача 2:

Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

procedure konsol (a, n: integer);
begin
  if not (a > n) then
  begin
    write (a, '  ');
    a:= a + 1;
    konsol (a, n);
  end;
end;

begin
  konsol (1, 11);
  readln();
end.

Вывод в консоли:

1  2  3  4  5  6  7  8  9  10  11  
  • Log in to post comments
  • 990 reads
vedro-compota's picture

vedro-compota

Sun, 01/08/2023 - 14:12

попробовать решить с одной переменной - мы можем сначала сделать рекурсивный вызов, а только потом работать с текущим значением

_____________
матфак вгу и остальная классика =)

Patrick

Sat, 01/14/2023 - 22:05 

procedure konsol(n: integer);
begin
  if n > 1 then
    konsol(n - 1);
  write(n, '  ');
end;

begin
  konsol(13);
  readln();
end.

Консоль:

1  2  3  4  5  6  7  8  9  10  11  12  13  
vedro-compota's picture

vedro-compota

Sun, 01/15/2023 - 13:08

засчитано

_____________
матфак вгу и остальная классика =)