Дан массив чисел от а до б вывести в порядке уменьшения используя процедуру и рекурсию.(паскаль)

dashapetiaeva dashapetiaeva    3   08.11.2019 13:26    2

Ответы
MarkTell MarkTell  10.10.2020 11:55

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика