16^x = 32 * 1024 * 1024 * 8 здесь всё правильно (в килобайте 1024 байта, в мегабайте 1024 килобайта, в байте 8 бит) представляем все числа в виде степеней числа 2
(2^4)^x = 2^5 * 2^10 * 2^10 * 2^3 Выполняем преобразования (действия со степенями) 2^(4*x) = 2^(5 + 10 + 10 + 3) 2^(4*x) = 2^28 Логарифмируем обе части выражения по основанию 2 и выносим показатели степеней за знак логарифма 4*х = 28 х = 7 Таким образом задача решается устно.
const nx = 20; var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; i, j, k,n,r,t: integer; begin Writeln('Введите размер матрицы n');Read(n); for i := 1 to n do begin for j := 1 to n do begin Read(k);x[i, j] := k; end;end; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin Write(x[i, j]:4); if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end; end; Writeln; end; Writeln;Writeln('Одномерный массив'); for j := 1 to t do Write(z[j]:4); end.
Var count, i, d1, d2, d3, d4, d5, d6: integer; const MIN = 189980; MAX = 205505; begin count := 0; for i := MIN to MAX do begin d1 := i div 100000; d2 := i mod 100000 div 10000; d3 := i mod 10000 div 1000; d4 := i mod 1000 div 100; d5 := i mod 100 div 10; d6 := i mod 10; if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i then count := count + 1; end; writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов'); end.
здесь всё правильно (в килобайте 1024 байта, в мегабайте 1024 килобайта, в байте 8 бит)
представляем все числа в виде степеней числа 2
(2^4)^x = 2^5 * 2^10 * 2^10 * 2^3
Выполняем преобразования (действия со степенями)
2^(4*x) = 2^(5 + 10 + 10 + 3)
2^(4*x) = 2^28
Логарифмируем обе части выражения по основанию 2 и выносим показатели степеней за знак логарифма
4*х = 28
х = 7
Таким образом задача решается устно.