Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Mira12202
17.04.2021 01:34 •
Информатика
Написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111
Ответ:
llggvvjvhh
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 оценок)
Популярные вопросы: Информатика
nazfire2003
04.01.2022 20:13
Задание на языке Паскаль: 1)Найти площадь оставшейся фигуры, если из квадрата со стороной а вырезали круг с радиусом r. 2)Решить квадратное уравнение вида a*x2+b*x+c=0...
Дарьялол1
30.04.2022 06:40
Парольная защита при входе в систему необходима для: а)защиты компьютера от вирусов б)предотвращения входа в систему постороннего пользователя в)идентификации пользователя 2укажите...
myagkixmatveeva
30.04.2022 06:40
отсортировать массив из 10 чисел случайным образом по возрастанию и по убыванию....
olgai71p08imh
30.04.2022 06:40
Вэлектронной таблице значение формулы =срзнач(b5: e5) равно 100. чему равно значение формулы =сумм(b5: f5), если значение ячейки f5 равно 10?...
AnnaXolcman3003
29.06.2020 16:42
Установите соответствие между данными и их типом: 1)boolean a)7.1 2)real б)6 3)integer в)true...
Vovan10052002
19.07.2021 20:05
Что делать если при входе в A way out всё норм, но спустя одну минуту вылетает и открывается ориджин...
ИльяХлус
24.01.2020 17:37
Как это сделать на с++ через циклы. Задание на последовательности...
masha1373
23.01.2022 11:10
Составить программу, резервирующую массив из 100 элементов для хранения целых чисел, заполняет его случайными числами (процедура random) и выводит на экран среднее арифметическое значение...
mcpoh288
26.06.2021 17:30
По оценку от 1 до 5. https://website-about.neocities.org/Tesla.htmlДелал по фасту как и многие проекты....
tarnopolska99
05.08.2022 04:01
Знайдіть значення виразу + , якщо α = 22°30...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш