Составить программу определяющую является ли введенное слово перевертышем?
Составить программу определяющую является ли введенное слово перевертышем?
Гость
Ответ(ы) на вопрос:
Гостьvar s,s1:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
s1:=s[i]+s1;
if s1=s then write('YES') else write('NO');
end.
Не нашли ответ?
Похожие вопросы