Var s, s1, max:string;
begin
write('scrie ceva: '); readln(s);
s:=s+' '; max:='';
while pos(' ', s)>0 do
begin
s1:=copy(s,1,pos(' ', s)-1);
delete(s, 1, pos(' ', s));
if length(s1)>length(max) then max:=s1;
end;
writeln('cel mai lung cuvint este = ', max);
end.
Nu stiu Pascal dar am incercat sa caut pentru tine pe net. Daca ai idee de pascal poate te ajuta asta:
http://forum.codecall.net/topic/55231-reading-longest-word-within-a-string/
Daca nu, imi pare rau, poate chiar este cineva care stie pascal la propriu.
elenachiperciuc întreabă:
Lavinia_Cristina_ întreabă: