uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.
Для решения этой задачи нам сначала нужно вычислить значение выражения 4^3*3^19 в десятичной системе счисления, а затем перевести его в троичную систему и посчитать количество цифр 0, 1 и 2.
Значение выражения 4^3*3^19 в десятичной системе счисления будет равно:
64 * 1162261467 = 743008370688.
2. Перевод числа 743008370688 в троичную систему:
Для перевода числа из десятичной системы счисления в троичную систему мы будем делить его на 3 и записывать остаток от деления.
Таким образом, число 743008370688 в троичной системе счисления будет равно 210221202000000001222.
3. Подсчет количества цифр 0, 1 и 2 в записи числа:
В полученной троичной записи числа 743008370688 мы можем увидеть, что:
- Цифра 0 встречается 12 раз
- Цифра 1 встречается 8 раз
- Цифра 2 встречается 5 раз
Итак, в данной записи есть 12 цифр 0, 8 цифр 1 и 5 цифр 2.
Вот и ответ — в записи числа 4^3*3^19 в троичной системе счисления 12 цифр 0, 8 цифр 1 и 5 цифр 2.
uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.