Pascal, строки

[Ильгиза]

Pascal, строки

Помогите пожалуйста решить следующие задачи!
1)дана строка, состоящая из нескольких слов, слова отделяются друг от друга некоторым количеством пробелов. Преобразовать эту строку таким образом, что бы между словами был ровно один пробел.
2)Дана строка, получить из этой строки, строку перевертыш!


Спасибо заранее!!!!!!!!!!!

 

[Vladimir_S]

Помогите пожалуйста решить следующие задачи!

Пожалуйста.

1)дана строка, состоящая из нескольких слов, слова отделяются друг от друга некоторым количеством пробелов. Преобразовать эту строку таким образом, что бы между словами был ровно один пробел.

var
 s:string;
 i:integer;
begin
 writeln('Enter the string:');
 readln(s);
 while s[1]=' ' do
  delete(s,1,1);
 i:=1;
 Repeat
  inc(i);
  if (s[i]=' ') and (s[i-1]=' ') then
   begin
    delete(s,i,1);
    dec(i);
   end;
 Until i=length(s);
 writeln(s);
 readln
end.

2)Дана строка, получить из этой строки, строку перевертыш!

var
 s,s1:string;
 i:integer;
begin
 writeln('Enter the string:');
 readln(s);
 s1:=s;
 for i:=Length(s) downto 1 do
  s1[Length(s)-i+1]:=s[i];
 writeln(s1);
 readln
end.

Спасибо заранее!!!!!!!!!!!

Да не за что.