program primer1;
var s1,s2:string;
i:integer;
function compare(s1, s2 : string) : boolean;
var i : byte;
begin
if length(s1) <> length(s2) then compare := false else
begin
compare := true;
for i := 1 to length(s1) do
if s1[i] <> s2[i] then
begin
compare := false;
break
end
end
end;
begin
readln(s1); s2:='';
for i:=length(s1) downto 1 do begin
s2:=s2+s1[i];
end;
if compare(s1,s2) then writeln(s1, ' - перевертыш')
else writeln(s1, ' - не перевертыш');
end.
Можно упрощенно
program primer1;
var s1,s2:string;
i:integer;
begin
readln(s1); s2:='';
for i:=length(s1) downto 1 do begin
s2:=s2+s1[i];
end;
if s1=s2 then writeln(s1, ' - перевертыш')
else writeln(s1, ' - не перевертыш');
end.
Компиляция и выполнение
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
25 lines compiled, 0.3 sec
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?
tikit
tikit - перевертыш