Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
рай34
27.07.2020 04:31 •
Информатика
Впаскале. строка содержит одно слово. является ли оно палиндромом? !
Показать ответ
Ответ:
fatyaa22
01.10.2020 18:18
Var
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
POLINAzhavoronkova
11.03.2020 11:43
Сколько байт информации содержит сообщение объёмом 2 кбайт? в ответе укажите одно число....
lera10u
06.03.2021 07:42
Напишите алгоритм программирование. алгоритм такой: это алгоритм в котором переменной y присваивается значение большей из трёх величин а, в, с...
ФилиситиФорНау
24.01.2020 12:52
Учому основна відмінність між «науками про дух» і «науками про природу» за г. ? (15 б)...
Leraekb2012
25.09.2020 18:50
Напишіть твір усна народна творчість за планом: 1. вступ (взагалі про усну народну творчість) 2. основна частина 2.1. історичні пісні 2.2.народні думи 2.3.про народних співців 2.4...
Kirill12345qwert
10.11.2020 04:52
Should teachers have to wear uniforms or have a dress code ? write an essay to support your choice and to persuade the other students to vote for your choice. чи повинні вчителі...
mrlolik1500
02.04.2020 08:58
One of the ways to celebrate mother’s day is to give your mom the day off. ) 40...
antimonovaanas
17.04.2020 11:32
Периметр прямоугольника равен 48см длина относится к ширине как 7: 5 найти площадь этого прямоугольника...
tatiana260378
07.02.2022 01:30
Нужно объединить предложения с wо, wiе, wаs. 1) hеlеnа vеrbringt viеl zеit in ihrеm zimmеr. еr hаt dоrt sеinеn аusbildungplаtz. 2) sаshа stеllt sich sеhr оft vоr. siе lеitеt еin...
marsel234
20.05.2020 08:27
Не (x 45) и не (в числе x нет одинаковых цифр)...
ZnAnIjAbro
02.03.2023 16:44
1.161. выражение: q10o.2) n121a6b10, а 0, b 0; 16,6 , a 0,b...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.