Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Артем620
22.01.2022 15:36 •
Информатика
Проверить является ли введенное слово перевертышем? написать программу в паскале!
Показать ответ
Ответ:
nemcevakata401
02.10.2020 16:46
Var i,n,k:integer;
s:string;
begin readln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln('y')
else
writeln('n');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
влад2313
30.01.2022 17:21
Каткыл диск және лазерлік дискі ұқсастығы...
Соня12811
07.03.2020 21:34
ответь на вопросы.учти, что для кодирования используют только два символа. 1. сколько кодов можно составить из 8 бит? 2. сколько надо бит, чтобы можно было составить 64 разных кодов?...
Reiny
12.04.2021 19:01
нужно : с1. построить логическую схему. к виду и-не.2. найти функцию, к базису и-не. найти у при заданных сигналах: x1=x3=0, x2=x4=1.3. построить логическую схему и таблицу истинности....
guzaliyakildi
28.02.2020 09:14
Саша составляет пятибуквенные слова, в которых есть только буквы а, б, в, г, д, е, причем в каждом слове буква г используется ровно 2 раза. каждая из других допустимых букв может...
Влад27128
22.05.2022 19:01
Реализуйте известными вам циклов вычисление следующего выражения: составье программу, выводящую на экран квадраты чисел от 10 до 20 выключительно...
asdfghjkl6tygb
15.04.2023 09:25
Условиедано расстояние в метрах. выведите число полных километров в нём.формат входных данныхвводится целое число x (0≤x≤231−1).формат выходных данныхвыведите число километров в x...
vlipinskiy16
12.11.2022 09:46
Выберите истинные высказывания. а) человек разрабатывает алгоритмы.б) компьютер разрабатывает алгоритмы.в) исполнитель разрабатывает алгоритмы.г) человек работой других исполнителей...
30kotenok04
14.04.2023 15:08
На конференцию прибыли 39 ученых. каждый из них когда-то критиковал ровно одного из присутствующих на конференции. для решения одного важного вопроса было решено создать дружное жюри,...
shabdanova16
19.04.2021 07:21
Как определить, в какое окно введённые вами символы, если запущено несколько программ? ( 35 )...
Emil304
24.12.2021 22:09
Удалил папку defualtuser1(вроде так называется) из диска с когда хотел очистить место. как ее вернуть?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s:string;
begin readln(s);
n:=length(s);
for i:=1 to n div 2 do
if s[i]=s[n-i+1]then
k:=k+1;
if k=n div 2 then
writeln('y')
else
writeln('n');
end.