Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Usdied
03.04.2022 03:03 •
Информатика
Дано трехзначное целое число. найти произведение этого числа на разность максимального и минимального чисел, составленных их цифр исходного числа. например для заданного числа 315 получим: 315 × (531 – 135) = 124740
Ответ:
antonishyna1997
25.08.2020 08:58
В PascalABC
var n: integer;
s: string;
begin
write('число: '); readln(s);
n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s); writeln('число: ',n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dasha555m
14.09.2022 05:32
Решить в Python Вычислить значения выражения 15x^2+8x-9 (переменная x должна вводится с клавиатуры)...
miras39
28.01.2020 21:35
На питоне без использования if и while Ваня наблюдает за лягушкойВаня наблюдает за лягушкой. Изначально она сидит в точке 0 числовой прямой. Каждую секунду она прыгает...
otepovaaazan
26.01.2022 05:18
На Питоне Список квадратов Дано число N. Выведите N квадратов чисел от 1 до N (включительно) в формате [1, 4, 9, 16,…, N**2]. Используйте функцию print() для вывода списка....
1Продавец1
08.02.2020 16:35
Здравствуйте мне. Скажите какой это шифр (название) И если не сложно то и расшифровать Вот шифр =...
aslanəz
12.01.2021 16:23
Люди , что делать. У меня есть комп, я его переставил в другую комнату потомучто инет слабоват был, ну так вот я его переставил включаю и чёрный экран, индикаторы горят,...
katy244
12.10.2020 00:33
Составить программу на языке Паскаль, которая удалит третье слово в тексте, который состоит из 5 слов. Текст нужно придумать самостоятельно. На проверку нужно прислать...
amamam009
21.02.2023 16:54
Дан текстовый файл, в котором через пробел записаны 6 целых чисел. Вывести на экран произведение чисел, которые меньше числа 15, но больше числа 7. На проверку нужно прислать...
Настя0857
12.02.2023 02:17
На питон! Шифр ЦезаряВ шифре Цезаря каждый символ, являющийся буквой латинского алфавита, заменяется на другой символ, k-тый по счёту в алфавите после данного. Если этот...
Egorka12351727378
12.06.2020 19:21
НА ПИТОНответьте на вопрос: что выведет на экран данная программа?...
ренатка6
27.03.2022 00:03
Решите на пайтон Исполнитель НечетМ преобразует число на экране. У исполнителя НечетМ две команды, которым присвоены номера: 1. прибавь 1 2. сделай нечётное Первая из...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n: integer;
s: string;
begin
write('число: '); readln(s);
n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s); writeln('число: ',n);
end.