Задать вопрос
19 октября, 08:21

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

Pascal Turbo.

+2
Ответы (1)
  1. 19 октября, 09:12
    0
    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. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы