13. Определить является ли симметричным данное слово.
Пример интерфейса
Пример программы
uses
// ...
LCLProc;
//...
procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
c1, c2 : string;
i, j, len, len2 : Byte;
symmetric : Boolean;
begin
symmetric := True;
s := Edit1.Text;
len := UTF8Length(s);
len2 := len div 2; // Половина длины слова.
j := len;
for i := 1 to len2 do begin
c1 := UTF8Copy(s, i, 1); // С начала слова.
c2 := UTF8Copy(s, j, 1); // С конца слова.
if c1 <> c2 then begin
symmetric := False;
end;
Dec(j);
end;
RadioButton1.Checked := symmetric;
RadioButton2.Checked := not(symmetric);
end;