4200тыс. ед. : 6 раз в день = 7 дней
4200 тыс. ед : 7 дней = 600 тыс. ед. в сутки
Также как и в десятичной системе:
- Умножаем делимое и делитель на 10, чтобы избавиться от запятой
- И делим как в обычном двоичном примере (вы же умеете, надеюсь?)
Ответ: 10,1
Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
Begin
if (M mod d = 0)and(N mod d = 0) then
Begin
M:=M div d;
N:=N div d;
if M>N then d:=N
else d:=M
End;
d:=d-1
End;
End;
Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.