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

Всё, работает. Проверил в другом паскале. Не люблю .NET , больно глючит зараза...

Но есть решение без указателей, ровно с 1 объявленной переменной. Даю подсказку: переменная локальная

А можно использовать новую переменную в функции. В борлданд паскале нет функции IntToStr, можно будет её написать?

Всё, работает. Проверил в другом паскале. Не люблю .NET , больно глючит зараза...

Он глючит только при Ctrl+Z и иногда при readln.

Даю подсказку: переменная локальная

Всё. Я знаю решение с одной функцией.

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:

function rec : string;
var x:longint;
begin
read(x);
if x = 0 then rec:= '0' else rec := rec + ' '+ IntToStr(x);
end;
begin
writeln(rec);
end.

Мне дарк32 разрешил опубликовать одну задачу, так что вот. Хотите решайте, хотите нет. Я лично бы предпочёл задач по RGSS

Спойлер Задача 3:

НОК

(Время: 1 сек. Память: 16 Мб Сложность: 24%)

Требуется написать программу, определяющую наименьшее общее кратное (НОК) чисел a и b.

Входные данные

В единственной строке входного файла INPUT.TXT записаны два натуральных числа А и В через пробел, не превышающих 46340.

Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — НОК чисел А и В.

Примеры

№ |INPUT.TXT |OUTPUT.TXT
1 |36 27 |108
2 |39 65 |195

Спойлер Вот объяснение алгоритма.:

Наименьшее общее кратное (НОК) двух целых чисел a и b есть наименьшее натуральное число, которое делится на a и b. Обычно обозначается [a,b], а иногда НОК(m,n) или LCM(a,b). Например, НОК(16,24)=48.

Для нахождения НОК удобно использовать следующее свойство: для любых натуральных чисел a и b верно равенство НОД(a,b)*НОК(a,b)=a*b , откуда получаем, что НОК(a,b)=a*b/НОД(a,b).

В условиях данной задачи можно НОД найти перебором, но более универсально использовать алгоритм Евклида, реализация которого рассмотрена здесь.

Вы бы еще объяснение алогритма писали для тех кто не в танке.