Pascal:
var
s: string;
i,f: byte;
begin
write('String: ');
readln(s);
f := 0;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s)-i+1] then begin
writeln('Nu este palindrom');
f := 1;
break
end;
if f = 0 then
write('Palindrom');
readln
end.
C++:
#include <iostream>
#include <cstring>
using namespace std;
bool check_polindrom(string word)
{
int len = word.length();
for(int i = 0; i < len/2; ++i)
{
if(word[i] != word[len-i-1])
{
return false;
}
}
return true;
}
int main()
{
string str;
cout << "Introduceți cuvântul: ";
cin >> str;
if(check_polindrom(str))
{
cout << "Cuvântul este palindrom.";
}
else
{
cout << "Cuvântul nu este palindrom";
}
return 0;
}
