Язык п.-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.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
757.7₁₀ = 1365.546₈
Объяснение:
Перевод целой части числа из десятичной в восьмеричную систему счисления:
Делим целую часть на 8, из ответа забираем остаток от деления. Далее повторяем, пока не получится число меньше 8. Остатки от деления записываем с конца
757 : 8 = 94 (остаток 5)
94 : 8 = 11 (ост. 6)
11 : 8 = 1 (ост. 3)
1 : 8 = 0 (ост. 1)
757₁₀ = 1365₈
Перевод дробной части числа из десятичной в восьмеричную систему счисления:
Умножаем дробную часть на 8, из ответа забираем целую часть, далее повторяем.
0.7 * 8 = 5.6
0.6 * 8 = 4.8
0.8 * 8 = 6.4
Здесь можно продолжать бесконечно
757.7₁₀ = 1365.546₈