Зашифровать текст(не более 255 символов),записываю все слова наоборот.Считать,что слова в тексте отделены друг от друга одним пробелом — Pascal(Паскаль)

uses crt;
var s,s1,s2:string;
    c:char;
    i:byte;
begin
clrscr;
writeln('Исходный текст:');
readln(s);
s:=s+' ';{добавим пробел в конец}
s1:='';{}
while pos(' ',s)>0 do{пока есть пробел}
 begin
  s2:=copy(s,1,pos(' ',s)-1);{берем первое слово}
  for i:=1 to length(s2)div 2 do{переворачиваем}
   begin
    c:=s2[i];
    s2[i]:=s2[length(s2)-i+1];
    s2[length(s2)-i+1]:=c;
   end;
 s1:=s1+s2+' ';{пишем в новую строку через пробел}
 delete(s,1,pos(' ',s));{удаляем из первой строки}
 end;
writeln('Зашифрованный текст:');
write(s1);
readln
end.

Leave a Comment

− 6 = 4