Var
x, y, z, p, q, a: longint;
fin, fout: Text;
begin
Assign(fin, 'input.txt');
Reset(fin);
Readln(fin, z, p, q);
Close(fin);
Assign(fout, 'output.txt');
Rewrite(fout);
if z <= 1 then Writeln(fout, 'no')
else
if (z mod p <> 0) or (z mod q <> 0) or (p * q > z) then Writeln(fout, 'no')
else
if z = p * q then Writeln(fout, p, ' ', q)
else begin
a := z;
x := 1;
while (a mod p = 0) do
begin
x := x * p;
a := a div p
end;
a := z div x;
y := 1;
while (a mod q = 0) do
begin
y := y * q;
a := a div q
end;
a := z div (y * x);
if a = 1 then Writeln(fout, x, ' ', y)
else Writeln(fout, 'many')
end;
Close(fout)
end.
Как можно получать корень из переменной не получив переменной
7(16)=7(8) и 251(8)
1)247(8)
2)Переводим в 8СС=212 (010001010)
3)248 ЭТО ЧИСЛО НЕ МОЖЕТ БЫТЬ в 8СС
4)А8(16)=10101000=251(8)
Если условие записано правильно, то 1) и 2)
Карпец Д. К.
1
А с муз. файлом не знаю))
30 см, зависит ещё от диагонали монитора!!!