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

Написать программу в Паскале!

Question

Информатика

Лидия

15 апреля, 07:28

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

Написать программу в Паскале!

+5

Ответы (1)

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

Михаля · Answer 1

Var i, n, k:integer;

s:string;

begin readln (s) ;

n:=length (s) ;

for i:=1 to n div 2 do

if s[i]=s[n-i+1]then

k:=k+1;

if k=n div 2 then

writeln ('y')

else

writeln ('n') ;

end.

Проверить является ли введенное слово перевертышем?Написать программу в Паскале!

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

Написать программу в Паскале!