В! определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)

121

374

Посмотреть ответы 2

Ответы на вопрос:

вевпончд

Информатика

4,8(72 оценок)

Var s,s1,l: string; i: integer; begin writeln ('введите слово'); readln (s); s: =lowercase (s); for i: =length(s) downto 1 do begin l: =s[i]; insert (l,s1,length(s)-i+1); end; if (s1=s) then writeln ('это "перевёртыш"') else writeln ('это не "перевёртыш"'); end.