Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
aldiyar20020922
24.01.2023 21:17 •
Информатика
Найти разность между произведением и суммой цифр трехзначного числа. pascal
Показать ответ
Ответ:
sonya0013
10.08.2020 17:19
//PascalABC.NET
var
N, S, P : integer;
begin
while (N < 99) or (N > 999) do
begin
write('Введите трехзначное число: ');
Readln(N)
end;
S := (N div 100) + (N div 10 mod 10) + (N mod 10);
P := (N div 100) * (N div 10 mod 10) * (N mod 10);
writeln('Разность равна ', P - S)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
evadudina2016
21.10.2021 21:25
Какие из предложенных множеств являются конечными? 1)однозначные числа 2)нечетные числа 3)кол-во углов в треугольнике 4)натуральные числа...
ilya7klass
21.10.2021 21:25
Составьте таблицы истинности для логических выражений : б ) ( а или в ) и ( не а или в ) в ) не ( а и в или с ) заранее !...
MoriYuka
20.02.2022 06:57
Напишите программу, которая вводит четырёзначное число и определяет, верно ли, что в его десятичной записи цифры стоят в порядке возрастания...
САХАРОчка
15.04.2023 02:08
Определить, являются ли предложения высказываниями: a. Пойдем гулять! b. Завтра будет хорошая погода c. Дважды два – четыре d. 3 4 e. Сегодня идет дождь? f. Три – простое число...
mirann2hsjb
20.11.2020 03:42
Каждая последующая единица информации предыдущей в раза....
diyoyoroo
01.03.2020 22:30
Даны целое число т и вещественные массивы XМ), Y[M+5], Z(20]. Получитъ k число компонент вектора Х, принадлежащих отрезку [0; 0.5], 1- число компонент вектора Y, принадлежащих...
топфифа2
15.03.2021 05:44
составить программу по блок схеме(паскаль)...
Ziko88881
26.10.2022 23:12
Выполните в двоичной системе счисления 110010+11,01...
Шишкин555
26.03.2022 01:00
решить информатику 1)110001·1011 2)101·101 3)1000101-1010 4)100001:11...
bohdanaznetishyna
14.09.2021 04:18
Даны два натуральных числа найти их наибольшее общее кратное Наибольшим общим кратным двух чисел х и у называется наибольшее натуральное число которое делится на х и у Написать...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
N, S, P : integer;
begin
while (N < 99) or (N > 999) do
begin
write('Введите трехзначное число: ');
Readln(N)
end;
S := (N div 100) + (N div 10 mod 10) + (N mod 10);
P := (N div 100) * (N div 10 mod 10) * (N mod 10);
writeln('Разность равна ', P - S)
end.