Даны файлы f1, f2, f3, f4, f5, компоненты которых являются вещественными числами. организуйте обмен компонентами между файлами в соответствии со следующей схемой: f1 f2 f3 f4 f5 ↓ ↓ ↓ ↓ ↓ f3 f4 f5 f2 f1 т.е. компоненты файла f1 переписываются в файл f3, компоненты файла f2 - в f4 и т.д. разрешается использовать только один файл h.

Type   tr = real;   tf = file of tr; procedure swapfile(fn1, fn2: string); var   r: tr;   fin, fout: tf; begin   assign(fin, fn1); reset(fin);   assign(fout, fn2); rewrite(fout);   while (not eof(fin)) do begin read(fin, r); write(fout, r) end;   close(fin); close(fout) end; var   f1, f2, f3, f4, f5, fh: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin'; fh : = 'tmp.bin';   { f2 < -> f4 }   swapfile(f2, fh); swapfile(f4, f2); swapfile(fh, f4);   { f5-> h, f3-> f5, f1-> f3, h-> f1 }   swapfile(f5, fh); swapfile(f3, f5); swapfile(f1, f3); swapfile(fh, f1) end. ******************* для тестирования ****************** можно создать тестовые файлы с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string; m, n: integer); var   fout: tf;   i: integer; begin   assign(fout, fn); rewrite(fout);   for i : = m to n do write(fout, i / 2);   close(fout) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1, 3, 7); wf(f2, 11, 19); wf(f3, -6, 9); wf(f4, 0, 11); wf(f5, 14, 22);       end. далее можно просмотреть содержимое созданных файлов с следующей программы: type   tr = real;   tf = file of tr; procedure wf(fn: string); var   fin: tf;   r: tr; begin   writeln(fn);   assign(fin, fn); reset(fin);   while (not eof(fin)) do   begin read(fin, r); write(r: 0: 1, ' ') end;   writeln;   close(fin) end; var   f1, f2, f3, f4, f5: string; begin   f1 : = 'f1.bin'; f2 : = 'f2.bin'; f3 : = 'f3.bin';   f4 : = 'f4.bin'; f5 : = 'f5.bin';   wf(f1); wf(f2); wf(f3); wf(f4); wf(f5) end. затем выполнить основную программу по перезаписи и снова запустить программу для просмотра файлов.

Program lol (input, output); var a, n, b, i, p,s,g m: integer; c: real; begin n: =random(10000); writeln (n); a: =n; b: =0; c: =0; p: =1; g: =1; while a < > 0 do begin a: =a div 10; b: =b+1; end; while b < > 0 do begin p: =1; for m: =1 to b do p: =p*10; s: =(n mod p) div (p div 10); c: =c+s; g: =g*s; b: =b-1; end; writeln (c); writeln (g); end. program lol (input, output); var a, b, i, z: integer; begin b: =0; a: =3; z: =0; while a > 2 do begin read (a); z: =0; for i: =2 to a do begin if a mod i = 0 then begin z: =z+1; if (a=i) and (z=1) then b: =b+1; end; end; end; writeln (b); end.

#include < algorithm> #include < string> #include < iostream> using namespace std; int n; string x; int main(){    cin > > n > > x;           sort(x. x.;           int first_not_zero = -1;     for (int i = 0; i < n; ++i)    {        if(x[i] ! = '0')        {            first_not_zero = i;             break;         }    }          if(first_not_zero ! = -1)        swap(x[0], x[first_not_zero]);           cout < < x < < endl;           return 0; }