У меня такое задание:
нужно зашифровать сообщения, записывая все слова в предложении наоборот и все буквы в слове также наоборот. Составить программу, зашифровывающую и расшифровывающую любое сообщение составленное таким образом.
В программе Pascal я все это сотавила:
uses crt;
var s: string;
i: integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s)-1 do
if(s[i]='')and(s[i+1]<>'') then
writeln
else write(s[i]);
readln;
end.
procedure TForm2.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s:=Memo1.Text;
memo2.Text:='';
for i := Length(memo1.Text) downto 1 do
memo2.Text:=memo2.Text+memo1.Text[i];
end;
uses StrUtils;
// ...
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := ReverseString(Memo1.Text);
end;
Помогите решить эту же задачу только в виде функции