Вводится строка текста из n символов,слова разделены одним пробелом.найти длину самого длинного слова.написать программу в паскале.
karinkaloseva2003
3
21.05.2019 08:50
2
Другие вопросы по теме Информатика
Aisuluuuuuuu
17.02.2021 16:48
kingrmntc
17.02.2021 16:49
aidargaliullin
17.02.2021 16:50
любимчик27
27.10.2020 16:53
Metalgitarist23
27.10.2020 16:53
LonFostYT
11.07.2019 03:30
Рома67463
19.05.2019 21:30
KADANCHUK
19.05.2019 21:40
dfgfdgfd1
29.01.2021 10:29
Популярные вопросы
- Найти на тему площадь треугольников если не затруднит то с ответами, искала,...
2 - Вчём заключаются цели искусства согласно л.н.толстому?...
3 - Втреугольнике abc, bk биссектриса .сравните отрезки bc и ck....
2 - Решите уравнения 1. 10-2,4х = 3,16 2. (y + 26,1) * 2,3 = 70,84 3. (z - 1,2)...
1 - Написать! a- у вас есть проблемы с языком. вам трудно понимать речь диктора...
2 - Ставлю 15 : сочинение по повести г.троепольский белый бим черное ухо чему нас...
3 - Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала...
2 - Среднее арифметическое двух чисел равна 320. одно из чисел равно 290.найдите...
1 - Мне нужна! ю.м.нагибин-зимний дуб. почему анна васильевна разрешила савушкину...
1 - Зная, что цена помидоров 12 руб./кг, а зная, что цена помидоров 12 руб./кг,...
2
var
i,k,l:integer;
s:string;
begin
readln(s);
k:=0;
i:=1;
while i<length(s) do
begin
l:=0;
while (s[i]<>' ') and (i<length(s)) do
begin
l:=l+1;
i:=i+1;
end;
i:=i+1;
if l>k then k:=l;
end;
writeln(k);
end.