Free pascal. Написать программу детектирования слова-полиндрома

Question

Информатика

Антониныч

18 апреля, 20:48

Free pascal. Написать программу детектирования слова-полиндрома

+3

Ответы (1)

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

Машута · Answer 1

Var st: string; l, i: integer; b:boolean;

begin

readln (st) ;

l:=length (st) ;

b:=true;

for i:=1 to l div 2 do

if st[i]st[l-i+1] then b:=false;

if b then writeln ('Слово - палиндром')

else writeln ('Слово - не палиндром') ;

end.

Пример:

казак

Слово - палиндром