![\displaystyle A\times B = NOD(A,B)\times NOK(A,B) \to \\ NOK(A,B)= \frac{A\times B}{NOD(A,B)}](https://tex.z-dn.net/?f=%5Cdisplaystyle+A%5Ctimes+B+%3D+NOD%28A%2CB%29%5Ctimes+NOK%28A%2CB%29+%5Cto++%5C%5C+NOK%28A%2CB%29%3D+%5Cfrac%7BA%5Ctimes+B%7D%7BNOD%28A%2CB%29%7D+)
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
function NOD(a,b:integer):integer;
begin
while a <> b do
if a > b then a:=a-b
else b:=b-a;
NOD:=a
end;
begin
var a:=ReadInteger('A=');
var b:=ReadInteger('B=');
Writeln('HOK=',(a*b) div NOD(a,b))
end.
<u><em>Тестовое решение:</em></u>A= 18
B= 42
HOK=126
1 вопрос: а=1;
2 вопрос: б=3;
3 вопрос: а= -1;
4 вопрос: а=21;
5 вопрос: а=9,5.
Если канал 20 бит/с, то время передачи без архиватора 4.800.000сек, с архиватором 1.600.000+22+2=1.600.024. Разница 3.199.976 секунд
Быстрее с архиватором)
Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
Первые три листа разрезать на 2 части и раздать ученикам (по половине листа). У нас остается 10 листов. Разрезать 10 оставшихся листов на 3 части и раздать ученикам по 5 листков (10*3=30; 30/6=5). В результате получится, что у каждого ученика есть 1 половина листа и 5 третьих частей листа.