Народ, если не сложно, помогите с задачей:
Написать рекурсивную процедуру, при выполнении которой на экран будет выводиться отрезок натурального ряда чисел.
М | kosyak, пользуйся тегом CODE |
var?
n: integer;
procedure rec(i: integer);
begin
writeln(i);
if i < n then rec(i + 1);
end;
begin
write('n='); readln(n);
rec(1);
end.
var?
n: integer;
procedure rec(i: integer);
begin
writeln(i);
if i < n then rec(i + 1);
end;
begin
write('n='); readln(n);
rec(1);
end.