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

Написать программу в Pascal

Question

Информатика

Тонюра

27 марта, 12:30

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

Написать программу в Pascal

+2

Ответы (1)

Знаете ответ на вопрос?

Виталя · Answer 1

Var

S1, S2:string;

i:integer;

Begin

Write ('Введите слово: ') ;

ReadLn (S1) ;

For i: = 1 to Length (S1) do

S2:=S1[i]+S2;

if S1=S2 then WriteLn ('Да')

else WriteLn ('Нет') ;

End.

Пользователь вводит слово, определить является ли оно перевертышемНаписать программу в Pascal

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

Написать программу в Pascal