Строка --- тоже переменная. У меня тоже такая же идея(уже выложил и попроще) но она не прокатила.
Слова дарка.Вот моё решение тоже со строкой.Цитата:
2 переменных, а нужно 1 или вообще 0 (динамические не в счёт)
Цитата:
var
x: longint; s: string;
begin
read(x);
while x <> 0 do
begin
s := IntToStr(x) + ' ' + s;
read(x);
end;
write(0,' ',s);
end.