Нужно найти строки полиндромы и вывести их, вот моя прога function slov(s :string):string;
var
i :longint;
k :string;
begin
k := '';
if not(length(s) = 0) then
for i := length(s) downto 1 do
begin
k := k + copy(s,i,1);
end;
slov := k;
end;

var
f :text;
s :string;
l :longint;
begin
readln(s);
assign(f,s);
Reset(f);
while not(eof(f)) do
begin
readln(f,s);
if (slov(s) = s) then
begin
writeln(s);
end;
end;
close(f);
end.

Сайт, на котором осуществляется проверка пишет, что не проходят скрытые тесты, что не так я не понимаю​

taukebai2002    2   24.01.2021 20:36    2