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

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

Question

Информатика

Панюля

25 мая, 06:16

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

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

+4

Ответы (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