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

Question

Информатика

Бландина

26 февраля, 03:37

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

+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.