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

Question

Информатика

Кристина

3 октября, 23:45

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

+3

Ответы (1)

Знаете ответ?

Анисья · Answer 1

Var s : string;

i, k : integer;

begin

Readln (s) ;

k:=0;

for I : = 1 to Length (s) div 2 do

if s[i] = s[Length (s) - k] then k:=k+1;

if k = Length (s) div 2 then Write ('Полиндром') else Write ('Не полиндром') ; Readln

end.