С клавиатуры вводятся 5 целых чисел . Вывести на экран только однозначные числа . Без массива решите пожалуйста

1

Ответы и объяснения

2013-04-15T16:50:44+04:00

без массива. вот с рекурсией

 

procedure F (k : integer);

var

  n : integer;

begin

  read (n);

  if k < 5 then F (k + 1);

  if (n < 10) and (n > -10) then write (n, '  ');

end;

 

begin

  F (1);

end.