Дано четырехзначное число. Напишите программу на языке pascal, которая определяет есть, ли среди цифр заданного числа одинаковые и является ли число палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

162

368

Посмотреть ответы 3

Ответы на вопрос:

kitsrarr

Информатика

4,6(97 оценок)

я такой язык первый раз слушаю

shchevelevn

Информатика

4,5(22 оценок)

uses School; // PascalABC.NET версия после 14.04.2020

begin

var a := Digits(ReadInteger('Введи число:'));

if a.Length = a.Distinct.Count then

Println('Нет одинаковых цифр, не палиндром')

else

begin

Println('Есть одинаковые цифры');

if (a[0] = a[3]) and (a[1] = a[2]) then

Print('Палиндром')

else

Print('Не палиндром')

end

end.

denis2013den

Информатика

4,7(69 оценок)

12 мин = 720 сек v = 2 * 32 * 16000 * 720 = 737280000 бит = 92160000 байт = 90000 кб = ~87.9 мб сравни с вариантами тк их нет)

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.