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

Question

Информатика

Антониныч

28 апреля, 01:04

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

+2

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

Пример:

казак

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