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

159

371

Посмотреть ответы 2

Ответы на вопрос:

ghorddd

Информатика

4,4(88 оценок)

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 - палиндром