profile
Опубликовано 6 лет назад по предмету Информатика от timurka185

составить программу: является ли слово пилигримом

  1. Ответ
    Ответ дан doctornight25lify
    var s:string; i:integer; b:boolean;
    begin
    readln(s);
    k:=length(s); b:=true
    for i:=1 to k div 2 do if s[ i]<>s[ k-i+1] then b:=false;
    writeln(b);
    readln
    end.
  2. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      var s:=ReadlnString;
      if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
      else Writeln('Это не палиндром')
    end.

    Пример
    шалаш
    Это палиндром
Самые новые вопросы