Строки :)

[seilova]

здравствуйте, буду очень признательна если сможете помочь
1. Дана строка. Зашифровать строку, поменяв местами первый символ с третьим, второй с четвертым и т.д.
2. Дана строка. Удалить из строки все слова, имеющие менее 5 букв.

[profi]

помочь <> сделать. Наброски пожалуйста.

[seilova]

вот попробовала вторую:

var  n,  i: integer;  k:string;
begin
i:=1;
while  i<= length (k)  do begin
k:='';
while (s[i]<>' ') and (s[i]<>' ') do begin
k:=k+k[i];
i:=i+1
end;
writeln ('введи строку');
i:=i+1;
end;
if

end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

НЕУЖЕЛИ ЭТО ТАК ТРУДНО ПОНЯТЬ ИЛИ ЗАПОМНИТЬ?!!

Модератор.

[Alex11223]

Строку же вводить надо перед тем, как с ней что-то делать, а не наоборот). Зачем 2 раза s[i]<>' ' ? (и строка у вас k, а не s)
Вместо второго while должен быть if и перед ним "k:='';" непонятно что делает, а так вроде почти правильное направление.

[profi]

var
  s, temp : string;
  n, i, k : integer;

begin
  readln(s);
  n := length(s);
  i := 1;

  while (i <= n) do
  begin
    k := 0;
    while (s[i] <> ' ') and (i <= n)  do
    begin
      inc(k);
      inc(i);
    end;
    temp := copy(s, i-k, k);
    if (length(temp) < 5) then
    begin
      delete(s, i-k, k);
      n := length(s);
      i := i - k;
    end;
    inc(i);
  end;
  writeln(s);
  readln;
end.

[seilova]

спасибо объясните пожалуйста что означает copy???

[profi]

Copy

[Alex11223]

http://www.freepascal.org/docs-html/...stem/copy.html
Копирование из строки s k символов, начиная с cимвола с индексом i-k