Ввести слово. Определить является ли оно палиндромом. (Используя div)

Pascal Turbo.

Question

Информатика

Таля

31 июля, 03:32

Ввести слово. Определить является ли оно палиндромом. (Используя div)

Pascal Turbo.

+3

Ответы (1)

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

Измаил · Answer 1

Var s:string; l, i, k:integer;

begin

readln (s) ;

l:=length (s) ;

k:=0;

for i:=1 to l div 2 do

if s[i]=s[l-i+1] then k:=k+1;

if k=l div 2 then writeln (s,' - палиндром')

else writeln (s,' - не палиндром') ;

end.

Пример:

kazak

kazak - палиндром

Ввести слово. Определить является ли оно палиндромом. (Используя div)Pascal Turbo.

Ввести слово. Определить является ли оно палиндромом. (Используя div)

Pascal Turbo.