<span>-----------------------------------Исполнитель----------------------------</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer);
begin
while b>0 do (a,b):=(b,a mod b);
r:=a
end;
begin
var a,b,c,d:integer;
Write('Введите четыре натуральных числа через пробел: ');
Read(a,b,c,d);
var p,q,r:integer;
NOD(a,b,p); q:=(a*b) div p; // НОК(a,b)
NOD(c,d,p); r:=(c*d) div p; // НОК(c,d)
NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d)
Writeln('НОК=',r)
end.
<u>Пример</u>
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700
Тут такой принцип. Есть таблица, в которой каждой шестнадцатеричной цифре соответствует двоичный код:
<span>16 система 2 система </span>
<span>0= 0000 </span>
<span>1= 0001 </span>
<span>2= 0010 </span>
<span>3 =0011 </span>
<span>4 =0100 </span>
<span>5= 0101 </span>
<span>6= 0110 </span>
<span>7 =0111 </span>
<span>8 =1000 </span>
<span>9= 1001 </span>
<span>А =1010 </span>
<span>B =1011 </span>
<span>C =1100 </span>
<span>D =1101 </span>
<span>E =1110 </span>
<span>F= 1111 </span>
<span>С помощью этой таблицы записываем наше шестнадцатеричное число, переводя каждую цифру в двоичный код: </span>
<span>1011 0010 1011 0001 0110 </span>
<span>Чтобы перевести число в четверичную систему, этот код разбиваем на группы по две цифры, и каждую группу переводим в четверичную цифру, так как в четверичной системе каждая цифра кодируется двумя двоичными цифрами: </span>
<span>Двоичная система Четверичная система </span>
<span>00= 0 </span>
<span>01=1 </span>
<span>10 =2 </span>
<span>11= 3 </span>
<span>Получаем </span>
<span>10 11 00 10 10 11 00 01 01 10 = 2302230112</span>
<span>44,1 кГц - значит, что сигнал измеряется 44 100 раз в течение одной секунды.</span>⇒<span>
44100*(2*60)*16=~10МБайт </span>
