<span> ближе всего скорее древнеегипетская письменность</span>
81920,5120,175921860444160,128849018880
3 ноября 1962 года <span>Гейб Ньюэлл
А курица учённые ещё не определились когда родилась курица .</span><span />
Ответ:
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.
Объяснение:
Var A:longint;
k:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
k:=0;
While A<>0 do
Begin
if (A mod 10) mod 2 <> 0 then k:=1;
A:=A div 10
End;
if k=0 then WriteLn('Да')
else WriteLn('Нет')
End.