Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение:
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)
12661=10000+2000+600+60+1
Ответ:
Объяснение:
var h,m,sec,S: integer;
begin
readln(S);
h:= S div 3600;
m:= (S - h*3600) div 60;
sec:= S - m*60 - h*3600;
writeln(h,':',m,':',sec);
end.