тата279
02.01.2021 01:48

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
1pashnett
08.10.2020 10:25
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

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

Пример
шалаш
Это палиндром
0,0(0 оценок)
Ответ:
ОдУвАнЧиК07
08.10.2020 10:25
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота