Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
1244ррровг
06.04.2021 16:13 •
Информатика
Написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111
Показать ответ
Ответ:
mick65
06.10.2020 22:21
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш
0,0
(0 оценок)
Популярные вопросы: Информатика
emalets20042
15.03.2021 06:20
Дана блок-схема. какое значение будет иметь z на выходе, если x=17?...
Annkot22
20.02.2020 04:26
Решите пример по информатике на фото...
катююсик
12.03.2020 18:12
Дан целочисленный массив из 12 элементов случайных целых чисел ,принадлежащих интервалу [10; 45[.необходимо найти произведение элементов массива ,кратных 5.можно, , с подробным...
lpam
03.05.2023 18:27
Пройти тест: * 1. требуется поменять местами значения элементов массива x[a] и x[b]. какой оператор нужно добавить вместо многоточия? p : = x[a]; ; x[b] : = p; в ответе не...
GanifaGasanova505
14.04.2022 17:46
Сколько байт (в ответе введите только число) в памяти занимает массив a, если на целое число отводится 4 байта? var a: array[-3..2] of integer;...
775svetik
14.04.2022 17:46
Информатика и икт. 3 класс. 2 часть бененсон е.п., паутова а.г. д18 реши кроссворд...
DartMatv
14.04.2022 17:46
Статья,набранная на компьютере,содержит 16 страниц,на каждой странице 35 строки,на каждой строке 64 символов. определите информационный объём статьи в одной из кодировке windows-1251,...
АндрейДемаков
14.04.2022 17:46
Қөрнектерді есептеу үшін қолданылатын іс əрекеттің атауы қалай аталады...
teorem
27.05.2022 20:02
Какое устройство пк преднозначено для вывода информации?...
Лизагоу
27.05.2022 20:02
Устройство ввода информации с листа бумаги...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш