tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу в
Написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111
228665123
1 07.09.2019 03:40
0
Ответы
tsoikin77
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
не перевертыш
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
юлька438
19.06.2020 16:57
Построить таблицу истинности сложного высказывания (A & B v A v B)→C...
deulinslava26
27.04.2020 18:12
Предположим, что появился процессор с каким-то принци-пиально новым свойством. Как быстро этим свойством смо-гут воспользоваться потребители? Какова роль программногообеспечения в...
Мұғалімpvl
27.04.2020 18:12
A:=1;m:=147;s:=a∗m При выполнении оператора a:=1 в ячейку оперативной памяти компьютера с именем a заносится значение ; при выполнении оператора m:=147 в ячейку оперативной памяти...
Losvlosinavhlasinah
28.09.2019 18:40
Найти среднегодовую температуру в високосном и невисокосном году(через массив)...
собачка34
28.09.2019 18:40
Написать программу, которая посчитает сумму пяти разных чисел, который может ввести пользователь самостоятельно. написать программу для трех случаев, с циклом while, repeat и for...
Dasha826251
15.03.2019 21:00
Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 45, запись которых в системе счисления с основанием 6 оканчивается на 2....
NastyaMishacheva
15.03.2019 21:00
Укажите в порядке возрастания все основания системы счисления, в которых запись числа 30 оканчивается на 8....
pinelopa2005
15.03.2019 21:00
2-3 примера пар объектов имена отношений которых не изменяются...
AnnLage
17.11.2020 10:54
Чем отличаются друг от друга записи в базе данных? 1)содержанием2)количеством полей3)длиной4)структорой...
olavishneva
03.07.2019 08:50
Составьте программу, которая по введенному k – числу цветков печатает фразу «в букете k цветков», причем согласовывает окончание слова «цветок» с числом k. на паскале...
Популярные вопросы
2. Какая основная мысль заключена в словах старичка? Запиши Имя существительное...
2
А) При каких значениях х имеет смысл выражение у = √x ? б) Постройте график функции...
2
. Berilgan so zlarni tub va yasama sifatlarga ajrating. So ngra ularning zid ma...
1
Виконайте множення одночлена на многочлен 1) 2х( 3х -5) = 2) 2a(4a + 3b - c) =...
3
сделать надо поставить past simple or the present simple...
3
P прямоугольника = 28см; S=48см^2 Найти: диагонали ...
1
2m 4n-302b-mnt 5 ab-4 nm +8 ab стандарт...
2
История главного героя .Александр Андреевич «горе от ума»...
2
У приміщенні, об’єм якого ( N + 90 ) м 3 після роботи обігрівача температура повітря...
1
1. Напишите от своего имени письмо Болтаю, о чем вы хотели бы рассказать герою?...
3
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное число: ').ToString;
if n=ReverseString(n) then Writeln('Перевертыш')
else Writeln('не перевертыш')
end.
Пример
Введите натуральное число: 3527253
Перевертыш
Введите натуральное число: 135233
не перевертыш