Составить программу в паскале для определения является ли заданное слово палиндромом

Question

Информатика

Геновефа

1 мая, 15:46

Составить программу в паскале для определения является ли заданное слово палиндромом

+5

Ответы (1)

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

Каллисфен · Answer 1

Var

x:string;

i, w:integer;

begin

w:=0;

readln (x) ;

for i:=1 to length (x) div 2 do

if x[i]x[length (x) - i+1] then

w:=w+1;

if w=0 then writeln ('Палиндром') else

writeln ('Не палиндром') ;

end.