Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
Вот :) Надеюсь, всё будет понятно.
#include <iostream>
#include <string>
#include <vector>
#include <algorithm>
bool Palindrome(const std::string& str)
{
std::string temp = str;
std::reverse(temp.begin(), temp.end());
return str == temp;
}
void Print(const std::vector<std::string>& vec)
{
for (const auto &val : vec)
{
std::cout << val << " ";
}
}
int main()
{
std::vector<std::string> palindromes;
std::string str;
std::cin >> str;
while (str != ".")
{
if (Palindrome(str))
{
palindromes.push_back(str);
}
std::cin >> str;
}
Print(palindromes);
return 0;
}