задание 2 Урок 21

Primary tabs

Submitted by nglag on Wed, 02/09/2022 - 19:21

Forums:

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

задание 2 Урок 21

program U21z2;
var n : integer;

 procedure OneToN(m,n: integer);
  begin
      if(m < n ) then
      begin
         writeln(m + 1);
         OneToN(m + 1, n);
      end
  end;
begin
  OneToN(0,8);
  readln();
end.
  • Log in to post comments
  • 440 reads
vedro-compota's picture

vedro-compota

Wed, 02/09/2022 - 20:36

достаточно одно аргумента, просто порядок печати и рекурсивного вызова должен быть обратным

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