Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
sandrokapanadze777
27.01.2022 03:56 •
Информатика
Составить программу: является ли слово пилигримом
Ответ:
arte6767
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 оценок)
Ответ:
Yana7112
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 оценок)
Популярные вопросы: Информатика
ева520
06.12.2020 14:16
Скорость передачи данных между мкс и землей 8388608 бит в секунду, за сколько минут можно передать файл с размером с 1гбайт...
DanilVolkov95
06.12.2020 14:16
Составить таблицу истинности. ¬(bva)& c...
анастасиятихая
09.10.2020 08:36
Текст занимает 1,25 КБ памяти компьютера. Сколько символов содержит текст ?1)12082)12003)1108...
Черничка21
15.07.2021 20:35
Отметьте, что произойдет в результате выполнения следующей программы. program pr; var а, b, с: integer; begin write (‘Введите первое целое число’); readln (а);...
mrfenics
10.06.2021 13:04
Раставте знаки препинания. 1. За кого же нам батюшка посвататься отвечают сыновья. 2. Глухо прокатился отдалённый гром и хлынул проливной дождь. 3. Наступила осень...
aliya071016
10.06.2021 13:04
2. Подберите слово из упражнения 1 к определению ниже. 1)A kind of animal no longer existing 2)To cause danger to a living being 3)A group of plants and animals...
CarlJohnson1000
10.06.2021 13:04
Какая самая близкая похожая по размеру на нашу галактика?...
Malika274
14.01.2023 13:49
Чи є число -2 коренем рівняння 4х=-8?...
svet0chka
14.01.2023 13:49
Людина у єпоху барроко -це...
nikita540601
14.01.2023 13:49
Приведите примеры растений разных жизненных форм...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s=s.Reverse.JoinIntoString then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Пример
шалаш
Это палиндром
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.