Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
taukebai2002
08.01.2022 08:41 •
Информатика
Free pascal. написать программу детектирования слова-полиндрома
Показать ответ
Ответ:
Louis12
06.10.2020 14:35
Var
s: string;
i: integer;
begin
writeln('Введите строку:');
readln(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('не палиндром');
Halt;
end;
writeln('палиндром');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
р6661
04.10.2022 01:09
Учащиеся 6 и 7 классов отправились на экскурсию. мальчиков было 11, учащихся 7 класса 26. шестиклассниц столько, сколько мальчиков из 7 класса. сколько всего побывало на экскурсии?...
pandokokos22jopar
04.10.2022 01:09
Информацию о том что на улице день нам несут: кожа,глаза,уши,язык,нос? найти лишнее по смыслу...
IDONTNONOTHING
25.12.2021 07:05
Запишите наименьшее число X, для которого истинно выражение (x 20) и (X-честное)...
JIuchno
10.11.2020 18:56
А. Опишите строение литосферы. б . Определите типы земной корыс . Определите различия между типами земной корыd. Определите различие между земной корой и литосферой....
ponhik4
10.11.2020 18:56
Даны точки А (3; 5; 4), В (4; 6; 5), С (6; —2; 1) и D (5; —3; 0). найдите длины диагоналей...
yuostroi
16.05.2021 07:09
26. 18. Sandra(call, just) to sayhello.19. My team(not, win) a match recently.20. I(be born) in 1990.21. Whenyour sister(start) school?22. This week I(see) two good films.23....
катябэд37
31.05.2021 04:23
Небольшой рассказ на тему жизнь на дне океана пятый класс биология...
refoinda
12.11.2022 10:04
Оцените массу такого арбуза, если его сторона равна 15 см, а плотность арбуза близка к плотности воды. На сколько увеличится масса арбуза, если он подрастет еще на 5 см?...
gerasimooffq
12.11.2022 10:04
Акбокен туралы малимет...
Neekeetos
22.06.2022 12:00
Напиши небольшую статью о том, что делают Тинэйджеры в нашейстране в свое свободное время50-60 слов. На английском ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: string;
i: integer;
begin
writeln('Введите строку:');
readln(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('не палиндром');
Halt;
end;
writeln('палиндром');
end.