Памагите плизз ( паскаль )
Выделить две группы самых длинных слов вывести их на экран... :confused::confused:
я тут кое-что набросал... можете глянуть де тут не правильно??
я тут кое-что набросал... можете глянуть де тут не правильно??
Цитата:
program p1;
type
MSL=array[1..128]of string;
var
MS:MSL;
k,i,max,j:byte;
maxs,st:string;
begin
writeln(' vvedite text ');
readln(st);
st:=st+' ';
i:=0;
while st=' 'do
delete(st,1,1);
i:=0;
while i>length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
while(length(st)<0) do
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
for i:=1 to length(st) do
if length(st)>max then
max:=length(st[1]) ;
maxs:= st;
writeln(maxs);
readln;
end.
type
MSL=array[1..128]of string;
var
MS:MSL;
k,i,max,j:byte;
maxs,st:string;
begin
writeln(' vvedite text ');
readln(st);
st:=st+' ';
i:=0;
while st=' 'do
delete(st,1,1);
i:=0;
while i>length(st)-1 do
if (st=' ')and(st[i+1]=' ')then
delete(st,i,1);
while(length(st)<0) do
begin
k:=pos(st,' ');
inc(j);
Ms[j]:=copy(st,1,k-1);
delete(st,1,k);
end;
for i:=1 to length(st) do
if length(st)>max then
max:=length(st[1]) ;
maxs:= st;
writeln(maxs);
readln;
end.