Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x,y,nod,nok: longint;
begin
read(x,y);
a: =x; b: =y;
while (a> 0) and (b> 0) do
if a> b then a: =a mod b
else b: =b mod a;
nod: =a+b;
nok: =(x div nod)*y;
write(nok);
end;
2^i=n, n = 16
2^i=16
i=4 бит
50 * 4 = 200 бит
200: 8 = 25 байт
Популярные вопросы