Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yamoskit00
01.05.2020 11:18 •
Информатика
Решить в pascal abc. нужно составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов
Показать ответ
Ответ:
Vika20032412
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 оценок)
Популярные вопросы: Информатика
Dasha9716
30.12.2021 14:15
1. какой вид компьютерной графики стоит применить для разработки эмблемы предприятия, если заранее известно, что размер эмблемы может быть как малым ( на бланках предприятия), так...
Neznakomka111111
30.12.2021 14:15
3. выполни программу для робика ⟶⟶⟶↓↓↓⟵⟵⟵ ⟶⟶⟶↓↓↓⟵⟵⟵ по клеткам как это будет?...
Айсара777
20.01.2021 06:53
5запишите значение переменной s, полученное в результате работы следующей программы var s,k: integer; begin s : =5; for k : = 1 to 20 do if (s*k) mod (s-k)= 0 then s : = s + 11;...
оОСпасибоЗнаниямОо
03.10.2021 09:36
Файл размером 64 кбайт передаётся через некоторое соединение со скоростью 1024 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое...
Sonialovegirl
13.01.2020 01:02
Представление информации с последовательности нулей и единиц называется...
barmeb11
01.03.2022 00:56
Сколько видеофайлов емкостью 700 мб поместится на жесткий диск обьемом 1,5 терабайт...
AriPanowa2005
10.04.2022 06:02
Какие тэги используются для создания на форме текстовых полей? переключателей? флажков? раскрывающихся списков? текстовых областей?...
nik869
11.06.2020 14:33
Информационный объем текста,подготовленного с компьютера равен 2 кбайт. нужно найти, сколько символов содержит этот текст,если используется шестнадцатиразрядная кодировка....
Дима6u9432
23.03.2020 18:38
Как найти наименьшую цифру в числе (паскаль)?...
jfjjthvhhcj
23.01.2022 14:00
Написать программу вычисления стоимости покупки с учетом скидки. скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.