Написан код по заданию:Помогите пожалуйста с его корректировкой,может быть,тут есть части(имею в виду без чего можно обойтись чтобы программа работала) чего-нибудь лишнего или можно что-то поменять чтобы код покороче был:
{Дана последовательность, содержащая от 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.
{Дана последовательность, содержащая от 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.
More Questions From This User See All
Answers & Comments
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)