Чтобы проверить работу этой программы, надо :
- либо сначала создать в блокноте файл bignum.in, записать туда исходное число и прописать в программе точный путь к созданному файлу
- либо исправить код программы на ввод данных с клавиатуры.
Выходной файл bignum.out программа создает сама на рабочем столе (если у вас иной путь к рабочему столу, то его надо исправить в коде)
var
f: text;
a,a1,a2,b1,b2: string;
k: integer;
i: byte;
begin
Assign(f, 'C:\Users\ds\Desktop\bignum.in'); // указать точный путь к входному файлу на том компьютере, где запускается программа
Reset(f);
a:=ReadString(f);
Close(f);
k:=length(a) div 2;
a1:=LeftStr(a,k);
a2:=RightStr(a,k);
a1:=ReverseString(a1);
a2:=ReverseString(a2);
for i:=1 to k-2 do begin
b1:=a1.Substring(i,k-i);
b2:=a2.Substring(0,k-i);
delete(a1,i+1,k-i);
delete(a2,1,k-i);
b1:=ReverseString(b1);
b2:=ReverseString(b2);
a1:=a1+b1;
a2:=b2+a2;
end;
a:=a1+a2;
writeln (a);
Assign(f, 'C:\Users\ds\Desktop\bignum.out'); // указать точный путь к выходному файлу на том компьютере, где запускается программа
Rewrite (f);
write (f,a);
Close(f);
end.
------------------------------
Результат для числа 1234567890 - 5142389706
Результат для числа 000123 - 000231
Результат для числа 012039 - 201390