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

Проверить, является ли слово перевертышм

Задача. Определить является ли данное слово перевертышем.
Решение.
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

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