Ответ:
n = input()
n=n.replace("."," ")
n=n.replace(","," ")
n=n.replace("!"," ")
n=n.replace("?"," ")
n=n.replace("-"," ")
n=n.replace("("," ")
n=n.replace(")"," ")
n = n.split()
maxlength = ""
maxcount = ""
for a in range(len(n)):
if len(n[a])>len(maxlength):
maxlength = n[a]
if n.count(n[a])>len(maxcount):
maxcount = n[a]
print("maxcount: "+maxcount)
print("maxlength: "+maxlength)
Объяснение:
есть нюанс:а что если 2 или больше слова которые может быть одинаково длиной какую должен выводит?
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var eps:=1e-3; // точность
var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
else Writeln('Окружность вписать нельзя')
end.
<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
147.65= 1*10^2+4*10^1+7*10^0+6*10^-1+5^-2
248=2*16^2+4*16^1+8*16^0
365=3*8^2+6*8^1+5*8^0
1010=1*2^3+0*2^2+1*2^1+0*2^0
