Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Слово перевертыш на Паскале

Определить является ли данное слово перевертышем. Слово называется перевертышем, если слева-направо и справа-налево читается одинаково. Например, наган - слово перевертыш.
program z40;
uses crt;
var a,b,c : string;
 i : longint;
 begin
 clrscr;
 write('Введите слово: ');readln(a);
 b:='';
 for i:=1 to length(a) do b:=a[i]+b;{ переворачиваем слово }
 if a=b then write('перевертыш')
 else write('не перевертыш');
 readln;
 end.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]