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

Question

Информатика

Геновефа

17 мая, 02:29

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

+3

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