Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
artemy050702
09.09.2020 09:55 •
Информатика
Решить в pascal abc. нужно составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов
Показать ответ
Ответ:
sherilblo
12.07.2020 22:41
Uses crt;
var a, b: string;
i: longint;
begin
clrscr;
write('Введите слово: ');
readln(a);
b := '';
for i := 1 to length(a) do
b := a[i] + b;
if a = b then
write('перевертыш')
else
write('не перевертыш');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BaRiGaSimon
17.04.2021 12:53
Ребята с информатикой,буду вам очень благодарна!...
karinaletgo07
24.06.2022 23:20
Вбанке производится учет своевременности выплат кредитов, выданных нескольким организациям. известна сумма кредита и сумма, уже выплаченная организацией. для должников установлены...
Мимиf
14.01.2023 01:01
Почему результаты опытов отличаются и как это связано с процессом фотосинтезам...
maximt025
11.06.2020 11:28
Определи абсциссу данной точки: a(-2; -1)....
nipogodin
22.03.2021 23:55
4. по включенному в цепь протекает ток силой 1 = 32 ма.сколько электронов через за промежуток вре-мени t = 10 мин? (элементарный заряд е = 1,6 - 10-9 степени кл.)5. определите напряжение...
egorywka
29.03.2022 00:44
Какую функцию выполняет колебательный контур радиоприемника? ...
looool6
01.02.2022 23:02
Сейчас контрольная а) величина б) единица физ величины в) прибор для измерения физ величины 1)испарение воды 2)влажность воздуха 3)атмосфера 4)пстхрометр 5)миллиграмм ...
ооррр3
18.11.2021 15:27
Начертите окружность заданную уравнением (х-2)²+(у+1)²=4...
KoTBPoccuu
20.12.2022 11:06
Даны точки а(0; 2; 3), в(5; 2; 0), с(1; 0; 3), d(0; 6; -3). найдите расстояние между точками а и в, а и с, с и d, в и d. ...
kseny07
30.10.2021 04:31
Два тела движутся вдоль одной прямой навстречу друг другу. начальная скорость первого тела 2 м/с, начальная скорость второго тела 4 м/с. ускорение первого тела 0,5 м/с2 , ускорение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b: string;
i: longint;
begin
clrscr;
write('Введите слово: ');
readln(a);
b := '';
for i := 1 to length(a) do
b := a[i] + b;
if a = b then
write('перевертыш')
else
write('не перевертыш');
readln;
end.