(М.В. Кузнецова) Значение арифметического выражения: 98 + 325 – 14 записали в системе счисления с основанием 3. Найдите сумму цифр в этой записи. ответ запишите в десятичной системе. 176) (М.В. Кузнецова) Значение арифметического выражения: 917 + 316 – 27 записали в системе счисления с основанием 3. Какая из цифр чаще всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
177) (М.В. Кузнецова) Значение арифметического выражения: 97 + 38 – 1 записали в системе счисления с основанием 3. Какая из цифр чаще всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
178) (М.В. Кузнецова) Значение арифметического выражения: 97 + 38 –5 записали в системе счисления с основанием 3. Какая из цифр реже всего встречается в полученном числе? В ответе укажите, сколько таких цифр в этой записи.
179) (М.В. Кузнецова) Значение арифметического выражения: 95 + 37 –14 записали в системе счисления с основанием 3. Какая из цифр реже всего встречается в этой записи? В ответе укажите, сколько таких цифр в записи.
180) Определите число N, для которого выполняется равенство 214N = 165N+1.
181) Определите число N, для которого выполняется равенство 211N = 152N+1.
182) Определите число N, для которого выполняется равенство 115N = 57N+2.
183) Определите число N, для которого выполняется равенство 123N = 93N+2.
184) Определите число N, для которого выполняется равенство 103N = 97N+2.
185) Определите число N, для которого выполняется равенство 132N + 138 = 124N+1.
186) Определите число N, для которого выполняется равенство 154N + 359 = 170N+1.
187) Определите число N, для которого выполняется равенство 143N + 256 = 138N+1.
188) Определите число N, для которого выполняется равенство 221N + 348 = 180N+2.
189) Определите число N, для которого выполняется равенство 205N + 558 = 196N+2.
190) Определите число N, для которого выполняется равенство 164N + 419 = 145N+2.
Sub z() Range(Cells(1, 1), Cells(100, 100)).Clear n1=5 n2=3 n3=4
k = 1 A = InitMatrix(n1, k, 1) k = k + n1 + 2 B = InitMatrix(n2, k, 1) k = k + n2 + 2 C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy) ReDim A(n, n) For i = LBound(A, 1) To UBound(A, 1) For j = LBound(A, 2) To UBound(A, 2) A(i, j) = Rnd * 200 - 100 Cells(cx + i, cy + j) = A(i, j) Next Next
Cells(cx, cy + n + 1) = "PositiveAverage =" Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A End Function
Function PositiveAverage(A) For i = LBound(A, 1) To UBound(A, 1) For j = LBound(A, 2) To UBound(A, 2) If A(i, j) > 0 Then s = s + A(i, j) k = k + 1 End If Next Next
var i, j: integer; a, b: array[1..n, 1..m] of integer;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(20) - 10; write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin for j := 1 to m do begin if ((i + j) mod 2 = 1) and (a[i, j] < 0) then a[i, j] := sqr(a[i, j]); write(a[i, j]:4, ' '); end; writeln; end; end.
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function
n = 3;
m = 3;
var
i, j: integer;
a, b: array[1..n, 1..m] of integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(20) - 10;
write(a[i, j]:3, ' ');
end;
writeln;
end;
writeln;
for i := 1 to n do
begin
for j := 1 to m do
begin
if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
a[i, j] := sqr(a[i, j]);
write(a[i, j]:4, ' ');
end;
writeln;
end;
end.