Помогите пожалуйста с программой

Помогите пожалуйста с программой
Гость
Ответ(ы) на вопрос:
Гость
Чтобы проверить работу этой программы, надо : - либо сначала создать в блокноте файл 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы