Задача 1 урок 20

Задача 1 урок 20

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

var N: integer;

function pow(N:integer):integer;
begin
   if(N = 1) then
     result:=1
   else
     result:=pow(N-1);
end;

begin
  writeln('vvedite N>0 (int)');
  readln(N);
  write(pow(N));
  readln();
end.
vedro-compota's picture

как вариант, схематично:

p1(N) {
  if N > 0 {
      wrtln( N )
      p1(N-1);
  }
}

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

var N: integer;
function pow(i:integer):integer;
begin
   if (i >= 1) then
     begin
       writeln(i);
       result:=pow(i-1);
     end;
end;

begin
writeln('vvedite N>0');
readln(N);
pow(N);
readln;
end.
vedro-compota's picture

решение засчитано

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