Пожалуйста, кто может напишите программу в Pascal.
Дана строка символов. Определить в ней все слова и расположить их в результативной строке в порядке возрастания длин.
Срочно!! ! нужно сделать до завтра!
можно и платно (могу положить деньги на телефон)
Заранее благодарю!! ! Спасёте!!!!
uses crt;
var max:integer=-maxint;
s,s2:string; p:integer=1;t,i,start:integer;
BEGIN
Read(s); s:=s+' ';
while length(s)<>0 do
begin p:=1;
for i:=1 to length(s) do
if (s[ i ]=' ') then
begin
t:=i-p;
if max<=t then
begin
max:=t;
start:=p;
end;
p:=i+1;
end;
s2:=s2+copy(s,start,max+1);
delete(s,start,max+1);
max:=-maxint;
end;
writeln(s2); Readkey;
end.
Пишите на почту или в асю 586178755
⇢