Ответ:
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше баллов дать, все таки это самое сложное из заданий Т-Т...
Var
m : array [1..7,1..5] of Real;
i,j : Byte;
sr : Real;
Begin
For i:=1 to 7 do
Begin
sr:=0;
For j:=1 to 5 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
sr:=sr+m[i,j];
end;
Writeln(' Ср. знач. строки: ',sr/5:5:1);
end;
end.
<span>A16 == </span>BF2D+ACAB = 16<span>BD8
</span>A7 == 534*65 = 51666
A9 == <span>40052-28716 </span>= 10235
Если интересно как , то самый простой способ :
1) переводим из 16,7,9 в 10;
2)выполняем действия ("+" "*" "-" );
3)Переводим назад в указанные СС (16,7,9)
1985/2 = 992 (остаток 1)
992/2 = 496 (0)
496/2 = 248 (0)
248/2 = 124 (0)
124/2 = 62 (0)
62/2 = 31 (0)
31/2 = 15 (1)
15/2 = 7 (1)
7/2 = 3 (1)
3/2 = 1 (1)
Записываем в обратном порядке.
11111000001(2)
А -1985 нужно инвертировать полученный результат и дописать единицу в конце.