Напишите программу на паскале. Пришлите не файлом.

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₈

Язык п.-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.

Объяснение:

можно было и побольше дать, все таки это самое сложное из заданий Т-Т...