Воспользоваться
алгоритмом "Разбиение строки на слова".
Сделать цикл. В цикле получаем очередное слово, славниваем по длинне с самым длинным найденным на данный момент словом (которое перед входом в цикл равно пустой строке). Если новое слово длиннее, то запоминаем его как самое длинное на данный момент. После выхода из цикла вывести на экран первую букву найденного самого длинного слова.
Примерно так (с использованием функции по указанной сылке):
[syntax='Pascal']
var stLine : string;
stMaxWord : string;
stCurrWord : string;
begin
..................... {здесь ввод строки stLine }
stMaxWord :='';
while (TRUE) do begin
stCurrWord := strtok (stLine, ' '); { разделителем указан только пробел. Хотя }
{ можно бы и добавить другин разделители, }
{ например, запятая и т.п. }
if (stCurrWord = '') then
break; { слова в строке закончились }
if (Length (stCurrWord) > Length (stMaxWord)) then
stCurrWord := stMaxWord;
end;
if (Length (stMaxWord) > 0) then
writeln ('pervaya bukva samogo dlinnogo slova ', stMaxWord [1])
else
writeln ('vvedennaja stroka ne soderzhit slov')
end.[/syntax]
Воспользоваться [url=http://forum.developing.ru/showthread.php?t=7995]алгоритмом "Разбиение строки на слова"[/url].
Сделать цикл. В цикле получаем очередное слово, славниваем по длинне с самым длинным найденным на данный момент словом (которое перед входом в цикл равно пустой строке). Если новое слово длиннее, то запоминаем его как самое длинное на данный момент. После выхода из цикла вывести на экран первую букву найденного самого длинного слова.
Примерно так (с использованием функции по указанной сылке):
[syntax='Pascal']
var stLine : string;
stMaxWord : string;
stCurrWord : string;
begin
..................... {здесь ввод строки stLine }
stMaxWord :='';
while (TRUE) do begin
stCurrWord := strtok (stLine, ' '); { разделителем указан только пробел. Хотя }
{ можно бы и добавить другин разделители, }
{ например, запятая и т.п. }
if (stCurrWord = '') then
break; { слова в строке закончились }
if (Length (stCurrWord) > Length (stMaxWord)) then
stCurrWord := stMaxWord;
end;
if (Length (stMaxWord) > 0) then
writeln ('pervaya bukva samogo dlinnogo slova ', stMaxWord [1])
else
writeln ('vvedennaja stroka ne soderzhit slov')
end.[/syntax]