Составьте программу, вычисляющую, является ли данное слово "перевертышем"(так называются слова, читающиеся одинаково слева направо и справа налево, например: топот, шалаш) паскаль

Program u;
    var s,d:string;
begin;
    read(s); s:=lowercase(s);
    if reversestring(s)=s then write('Перевёртыш') else write('Не перевёртыш');
end.

Сорян паскаль не знаю , могу скинуть на С++

Разбираешься в инфе , поймёшь

#include <iostream>

using namespace std ;

int main {

\\ не важно что выше

 

int num , k , o , s , l; \\ объявляем числа  

l, o , s , k ,num = 0 ;  \\ чтобы в компиле гадости не было

cin >> num >> k ; \\ вводим их c клавы

while (num >= 1) {

 s = num ;

 o = s%10 ;

     if (o <= k){ // цикл на проверку условию задачи

     l += 1 ;

     }

 num = num % 10 ;

}

cout << l ; // выводим ответ

\\ не важно что ниже

return 0 ;

}

Объяснение:

Пошаговое объяснение:

Кажется, догадался.

1) Плывут взрослая горилла и взрослая шимпанзе. Горилла остаётся на том берегу. Шимпанзе возвращается.

2) Шимпанзе берет ребенка гориллы и перевозит. Оставляет ребенка на том берегу и возвращается.

3) Шимпанзе берет своего ребенка и перевозит. А в обратную дорогу берет ребенка гориллы и возвращает на этот берег.

В результате на 1 берегу оказывается ребенок шимпанзе, взрослая шимпанзе и два ребенка гориллы.

А на 2 берегу взрослая горилла и ребенок шимпанзе.

Всех поровну, никто никого не съел.

4) Шимпанзе забирает своего второго ребенка и перевозит на тот берег. Обратно возвращается горилла.

5 и 6) Горилла за два рейса перевозит обоих своих детей.