кароче
Найти самое длинное слово в предложении, преобразовать его в предложении - поменять порядок следования букв на обратный.
Вот чо у меня вышло
var
a,so:string[30];
c,b,i,k:integer;
buf:char;
begin
readln(so);
writeln(so);
a:='';
for i:=1 to length(so) do begin
inc(k); if (so[i]=' ') or (i=length(so)) then begin
if length(copy(so,i-k+1,k))>length(a) then a:=copy(so,i-k+1,k); k:=0;
end;
end;
writeln(a);
c:=length(a);
b:=pos(a,so);
k:=1;
for i:= b to b+(c div 2) do begin
inc(k);
buf:=so[i];
so[i]:=so[b+c-k];
so[b+c-k]:=buf;
end;
writeln(so);
readln;
end.
М | - выдели код блоком и выбери нужный пункт в меню CODE над окном ввода Lapp |
var
Separators: set of char;
...
Separators:=[' ',',','.','!','?',';',':']; // добавь сам, что еще нужно
if (so[i] in Separators) or (i=length(so)) then
var
Letters: set of char;
...
Letters:=['A'..'Z']+['a'..'z'];