Тема: Свободный практикум

Строка --- тоже переменная. У меня тоже такая же идея(уже выложил и попроще) но она не прокатила.
Слова дарка.

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.

Короче, я пошёл изучать динамические переменные.

Ура!!! Я сделал.

PHP код:

var
  x: ^longint; s: string; 

begin
  new(x);
  read(^x); 
  while ^x <> 0 do 
  begin
    s := IntToStr(^x) + ' ' + s; 
    read(^x); 
  end;
  dispose(x);
  write(0, ' ', s); 
end. 


Вроде правильно, но мой паскаль отказался это компилировать. Пошёл сам читать про динамические переменные...

Andrew,
" x: ^longint; s: string; "

У тебя тоже две переменные..)

да две... но вариант уже интересный))
Арнон, вы сможете выполнить задание?

Inkognitoo & Arnon,
Одна из них динамическая, а их Dark32 разрешил.

Ладно, разрешу указатели, но я не смог её проверить. Мой паскаль отказался её копилировать - мол не могу заносить значения в такие переменные
Нельзя считывать данные этого типа