В какой строке ошибка. У меня всё компилиться. Счас на борланде проверю.
Вид для печати
В какой строке ошибка. У меня всё компилиться. Счас на борланде проверю.
Всё, работает. Проверил в другом паскале. Не люблю .NET , больно глючит зараза...
Но есть решение без указателей, ровно с 1 объявленной переменной. Даю подсказку: переменная локальная
А можно использовать новую переменную в функции. В борлданд паскале нет функции IntToStr, можно будет её написать?
Он глючит только при Ctrl+Z и иногда при readln.Цитата:
Всё, работает. Проверил в другом паскале. Не люблю .NET , больно глючит зараза...
Всё. Я знаю решение с одной функцией.Цитата:
Даю подсказку: переменная локальная
Интересно - оно скомпилеться или нет)PHP код:
function abracadabra(s:string):string;
begin
while s<>'0' do
begin
readln(s);
abracadabra:=s + abracadabra;
end;
Writeln(abracadabra);
end;
Kambala
Нельзя переопределять функцию.
Я пытался, пытался, пытался.... И ничего у меня не вышло. Завтра буду исправлять.
PHP код:
var
x: longint;
procedure rec;
begin
read(x);
if x <> 0 then rec;
write(x, ' ');
end;
begin
rec;
end.
Ну вот. Я не успел. Вот моё решение.
Спойлер 123:
Мне дарк32 разрешил опубликовать одну задачу, так что вот. Хотите решайте, хотите нет. Я лично бы предпочёл задач по RGSS
Спойлер Задача 3:
Вы бы еще объяснение алогритма писали для тех кто не в танке.