Question

вывести на экран числа обратные введенным с клавиатуры ввод прекратить при вводе нуля
(pascal)

Answer 1

Ответ:

var

 s:string;

 a, i :integer;

begin

 writeln('Введите числа :');

 s:='';

 repeat

   readln(a);

   s:=inttostr(a)+' '+s;

 until a=0;

 writeln(s)

end.