Дан массив чисел От А До Б вывести в порядке уменьшения используя процедуру и рекурсию.(Паскаль)
Ответы
Ответ дал:
1
var a: integer;
procedure row(n:integer);
begin
if n>=1 then begin
write (n, ' ');
row(n-1)
end;
end;
begin
readln(a);
row(a);
end.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад