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

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

Question

Информатика

Зиша

26 марта, 08:09

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

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

+4

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

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

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

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