Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
mendygulkurman
08.07.2020 14:57 •
Информатика
Дано трехзначное число. напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. 122 - нет 121 - перевертыш 222 - перевертыш
Ответ:
Vhrgrg
06.10.2020 03:21
var n:integer;
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end.
Пример:
n = 121
Перевертыш
0,0
(0 оценок)
Популярные вопросы: Информатика
даша3646
11.12.2020 06:20
На жестком диске размер кластера составляет 2048 байт.на этот диск записаны четыре файла размерами 600, 2049,4096,и 4508 байт.сколько кластеров необходимо для хранения всех четырёх...
TIPOcrytou
13.08.2020 19:11
1. программное обеспечение пк делится на виды: a) операционное и инструментальное; b) драйверы и утилиты; c) операционные системы и операционные оболочки; d) обучающие программы...
milana372
19.02.2021 10:53
Вавтопарке имеется k видов различных автомобилей. для каждого вида автомобиля известны максимально допустимый износ колес в процентах и стоимость их замены на новые. всего в автопарке...
SMokKK
10.09.2022 06:06
Напишите ЭССЕ на тему Профилактика интернета - зависимость школьников над ...
женя1378
01.06.2023 16:35
1. Составьте программу, которая определяет, является ли треугольник прямоугольным (в прямоугольном треугольнике сумма квадратов катетов равнаполовине гипотенузы).огольника определяет...
kmodeste
16.01.2023 00:40
Постройте таблицы истинности для следующих логических выражений: A & (A v B); B & (AvA ̅); B & (A v B v C); (AvB ̅vC) ̅....
svitlana122
12.01.2023 09:56
Для каких из приведённых ниже слов истинно высказывание: НЕ (оканчивается на мягкий знак) И (количество букв чётное)? 1)сентябрь 2)август 3)декабрь 4) май 5)март 2. Для какого...
muslima2003
28.03.2022 21:56
Написать программу, которая проверяет, делится ли на 3 целое число, введеное с клавиатуры WPF (!)...
mrudaa717
03.02.2022 02:33
умоляю. Я не знаю что там делать ...
настя123456789108
12.03.2022 17:07
Выбери форматы графических 3D редакторов Верных ответов: 2 skp blend bmp jpg gif...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
write('n = ');
readln(n);
if abs(n) div 100 = abs(n) mod 10
then writeln('Перевертыш') else writeln('Не перевертыш');
end.
Пример:
n = 121
Перевертыш