Перевидети целые числа из десятичной системы счисления в восьмеричную 856, 664, 5012, 6435, 78

856 =  1101011000 664 = 1010011000 5012 = 1001110010100 6435 = 1100100100011 78 = 1001110

11,11 (x cc) =x+1+x^-1+x^-2 0,1111=x^-1+x^-2+x^-3+x^-4 x+1+x^-1+x^-2=16*(x^-1+x^-2+x^-3+x^-4)   - (общий   знам. x^-4) x^5+x^4+x^3+x^2=16x^3+16x^2+16x+16 x^5+x^4-15x^3-15x^2-16x-16=0 x^4(x+1) - 15x^2 (x+1) -16(x+1)=0 (x+1)*(x^4-15x^2-16)=0 1) x+1=0   x=-1 (не удов. усл.) 2) x^4-15x^2-16=0     (y=x^2)     y²-15y-16=0 d=225+64=289     √d=17 y1=(15+17)/2=16   x1=4       x2 =-4 (не уд. усл.) y2< 0 (не уд. усл)     ответ   х=4

{pascal abc.net 3.2   входной текстовый файл с числами ч/з один пробел.   (в конце не должно быть пробелов! ) } const     f_in_name = 'd: \in9.txt';     f_tmp_name = 'd: \tmp.tmp'; var  f_in,f_out: text;   i, k: integer; begin   assign(f_in, f_in_name);   assign(f_out, f_tmp_name);   reset(f_in); rewrite(f_out);   k : = 0;   while not eof(f_in) do begin     read(f_in, i); k : = k + 1;     if k mod 2 < > 0 then write(f_out, ' ', i);   end;   close(f_out);   close(f_in);   deletefile(f_in_name);   renamefile(f_tmp_name, f_in_name); end.