Желательно с полным 1)переведите число 4267, 13 в двоичную и восьмиричную систему счисления

просто сначала перевести то, что перед запятой, потом поставить запятую и перевести то, что после запятой.

Ярешала эту горем - по - полам .. простите : в ней должны быть равны элементы стоящие в одной побочной диагонале. всего побочных диагоналей n+m-1.  достаточно хранить первую строку и последний столбец, var n, m, i, j, b : integer;   a : array [1..30000] of integer;   t : boolean; begin assign(input,'input.txt'); reset(input);   assign(output,'output.txt'); rewrite(output);   readln(n,m);   while n+m> 0 do   begin   t: =true;   for j: =1 to m do   read(a[j]);   for i: =2 to n do begin   for j: =1 to m-1 do begin   read(b);   t: =t and (b=a[i+j-1]) end;   read(b);   a[m+i-1]: =b end;   if t then write('y') else write('n');   readln(n,m) end;   close(output) ; end.

Простая  у нас есть два значения  коэффициент, отражающий во сколько раз гулливер больше лилипутов, и m – количество слоев матрацев  на выходе пусть у нас будет значение х- количество матрацев лилипутов, необходимых для построения матраца для чтоб было понятней обозначим площадь лилипута ал и площадь гуливера аг  тогда х= (аг/ал)*м аг/ал=к  тогда х=к*м ..теперь сделаем прогу  var к,м : integer; begin assign (input,'input.txt'); reser(input); assign(output,'output.txt'); rewrite (output); read(к,м); writeln (к*м); close (output); end.