Вводится строка текста из N символов,слова разделены одним пробелом.Найти длину самого длинного слова.Написать программу в Паскале.
10-11 класс
|
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.
Другие вопросы из категории
один равен нулю. Не могу понять это условие. Помогите пожалуйста
Умножь на 2
Прибавь 1
Выполняя команду номер 1, КАЛЬКУЛЯТОР умножает число на экране на 2, а выполняя
команду номер 2, прибавляет к числу на экране 1. Напишите программу, содержащую не
более 5 команд, которая из числа 6 получает число 33. Укажите лишь номера команд.
Например, программа 12122 -это программа:
Умножь на 2
Прибавь 1
Умножь на 2
Прибавь 1
Прибавь 1
которая преобразует число 5 в число 24.
условия отбора в плане расставления знаков?
см приложения
11100-111=Х
найти Х и записать его в десятичном виде
Читайте также
полученную строки.Напишите,пожалуйста,программу.Составить программу в паскале.
полученную строки.Напишите,пожалуйста,программу
пяти звездочек (*****), а в конец строку из пяти символов черточек (-----).
тоит из 120 символов и записан в 8-битной кодировке КОИ-8. Во сколько раз количество информации в первом тексте больше, чем во втором?
1)5 2)2 3)3 4)4
Каждая из последующих цепочек создается такими действиями: в начало записывается буква, следующая по алфавиту за первой, далее записывается предыдущая строка и она же в обратном порядке символов (справа налево). Вот первые 4 строки, созданные по этому правилу:
(1) AB
(2) BABBA
(3) CBABBAABBAB
(4) DCBABBAABBABBABBAABBABC
16.1. С какой буквы начинается 13-я строка?
16.2. Сколько раз буква А встречается в 10-ой строке?
16.3. Какая буква стоит на 8-ой позиции в 11-ой строке?
16.4. Сколько раз встречается буква А в первых семи строках (суммарно)?