Function polindrom(s1:ansistring):boolean;
var s2:ansistring;
i,n:integer;
Begin
n:=length(s1);
for i:=n downto 1 do
begin
writeln('I=',i);
s2[n+1-i]:=s1;
end;
test_polindrom:=true;
if s1=s2 then polindrom:=true
else Polindrom:=false;
End;
Нахождение палиндрома(Pascal)
Дана строка из прописных латинских букв.
Проверить не является ли она палиндромом.
Пишу код
Но при выполнении этой функции компьютер выдаёт ошибку
код ошибки 0
Проверить не является ли она палиндромом.
Пишу код
Код:
Но при выполнении этой функции компьютер выдаёт ошибку
код ошибки 0
Ребята я нашёл ошибку не тратьте своё время.