Question

Написан код по : с его корректировкой,может быть,тут есть части(имею в виду без чего можно обойтись чтобы программа работала) чего-нибудь лишнего или можно что-то поменять чтобы код покороче был: {дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – пробел, за последним словом – точка. вывести тo слово последовательности, у которого длина максимальна.} var s,sl: string; i,dmax: integer; begin write('введите строку '); readln(s); s: =s+' '; sl: =''; dmax: =0; for i: =1 to length(s) do if s[i]< > ' ' then sl: =sl+s[i] else begin if length(sl)> dmax then begin dmax: =length(sl); end; sl: =''; end; for i: =1 to length(s) do if s[i]< > ' ' then sl: =sl+s[i] else begin if length(sl)=dmax then write('самое длинное слово: ',sl,' '); sl: =''; end; end.

Answer 1

s = str(input())

args = s.split(' ')

maximum = 0

for i in range(0, len(args)):

   sub = len(args[i])

   if sub > maximum:

       maximum = sub

       word = args[i]

print(word)