ПОЖАЛУЙСТА Задача:1 D[1..2,1..6] числами 12,32,41,3,4,7,9,19,23,24,27,39 Задача 2: T[1..10,1..10] от 6 до 43.
Евгений9112
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:array[1..2,1..6] of integer:=
((12,32,41,3,4,7),(9,19,23,24,27,39));
Writeln(a);
var b:=MatrixRandom(10,10,6,43);
Writeln(b)
end.
Тестовое решение:
[[12,32,41,3,4,7],[9,19,23,24,27,39]]
[[29,39,20,21,36,34,10,25,32,40],[35,12,21,17,32,7,38,25,41,29],[6,33,17,19,30,25,34,37,21,23],[11,36,12,14,36,39,14,26,33,33],[17,34,39,30,14,34,29,19,20,26],[31,11,23,43,14,39,28,6,34,17],[43,17,10,15,35,42,6,13,25,36],[37,18,35,13,18,15,38,31,11,40],[39,21,22,38,36,43,18,12,43,40],[17,13,35,22,34,43,30,29,38,15]]
k*N+6=234 следовательно k*N=228
Из k*N=228 видно, что N - основание системы счисления, является делителем числа 228. Делителями числа 228 являются следующие натуральные числа: 2, 4, 6, 12.
Поскольку в записи числа в N системе счисления есть 6, поэтому в качестве основания подойдет только 12.
Если перевести 234 в 12 с/с получим 176
176 - 3 цифры и оканчивается на 6
Ответ: 12
===== PascalABC.NET =====
= 1 =
begin
var a, b: integer;
var x, z: real;
Write('Введите a, b, x, z: ');
Read(a, b, x, z);
var k := 1.0;
for var d := 1 to b do
begin
var c := 0.0;
for var s := 1 to a do
c += (d * d + x) / (s ** (3 / 2) + z);
k *= c
end;
Println('К =', k)
end.
= 2 =
begin
var b, n: integer;
var x, z: real;
Write('Введите b, n, x, z: ');
Read(b, n, x, z);
var g := 0.0;
for var c := 1 to b do
begin
var p := 1.0;
for var a := 1 to n do
p *= (a * a * a + z) / (c * c + x);
g += p
end;
Println('G =', g)
end.