В ПАСКАЛЕ!!!
Определте является ли слово "перевертышем" (читается слева направо одинаково справа налево)

1

Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-07T20:30:49+04:00
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.