uses crt;
var m,n:longint;
begin
read(m,n);
if (m mod n=0) or (n mod m=0) then writeln(1)
else writeln(2);
end.
восьмиричное число при кодировании в двухбитную систему кодируется тремя битами потому что 8 - это 2 в третьей степени
Трехзначное, соответственно, будет кодироваться тремя трехбитными кодировками. То бишь надо будет 9 бит информации........
А=J*D*t= 16*16000*30= 7680000 бит = 7680000/8=960000 байт= 960000/1024= 937,5 Кбайт
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220