Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнаружен нуль. Затем введенные числа распечатываются в обратном порядке. Нуль не печатать — Pascal(Паскаль)

procedure chisla;
var
  a: integer;
begin
  writeln('Введите число');
  readln(a);
  if a <> 0 then
    begin
      chisla;
      writeln(a);
    end;
end;
 
begin
  chisla;
end.

Похожие записи/страницы:

Leave a Comment

81 − = 77