<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD_NOK(a,b:integer; var NOD,NOK:integer);
begin
(var p,var q):=(a,b);
while q>0 do (p,q):=(q,p mod q);
NOD:=p; NOK:=a*b div NOD
end;
begin
var a,b,c,d:integer; Read(a,b);
NOD_NOK(a,b,c,d);
Writeln('НОД=',c,', НОК=',d)
end.
<u>Пример</u>
138 42
НОД=6, НОК=966
Var str , time, thtime: integer;
Begin
str := 42;
thtime := 5;
While str>0 Do
Begin
str := str-1;
time := thtime+time;
thtime := thtime+2;
End;
write(time,' секунд');
End.
<span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на третьем месте цепочки стоит одна из бусин H, E;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на втором месте – одна из бусин D, E, C, которой нет на третьем месте;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD EDHC DEHE
</span><span>– в начале стоит одна из бусин D, H, B, которой нет на втором месте;
</span>DEHD HEHC DCEE DCHE HDHD DEHE
<span>
– в конце – одна из бусин D, E, C, не стоящая на первом месте.
</span>HEHC DCEE DCHE HDHD DEHE<span>
Ответ: 5</span>
1 книга = 2048*256*128 = 67108864 байт = 65536 кбайт = 64 мбайт.
750 гб диска = 768000 мбайт
768000/64 = 12000 книг