Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
dibtdi
06.10.2021 07:11 •
Информатика
Найти разность между произведением и суммой цифр трехзначного числа. pascal
Показать ответ
Ответ:
yuostroi
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 оценок)
Популярные вопросы: Информатика
Heeellllpppp
20.10.2021 21:27
Причина начала Нидерландской революции: А) поражение Нидерландов в войне против Англии Б) усиление влияния англиканской церкви В) завоевание независимости Г) увеличение налогов...
лера1231231
20.10.2021 21:27
Какой изотоп образуется из урана 23992U после двух а-распадов и одного B-распада...
Alla11111111111
07.03.2020 07:21
На одно плечо рычага длиной 15 см действует сила 10 H, на другое — сила50 Н. Какой длины должно быть второе плечо, чтобы рычаг находился вравновесии?...
tanysha4957
06.08.2022 17:57
Запиши головні риси вдачі маленького принца...
milna1
06.08.2022 17:57
какие утверждение ошибочные...
sok2710
22.02.2022 00:06
Даны высказывания:A= «Число 34 — чётное число»B=«Лев — травоядное животное».Запиши верный ответ. (В ответе запиши значение логической переменной)A&B...
mousi1999
24.12.2021 05:11
Талдктенің орнына негізгі зат есімді қойып жаз.41. Көп нүктенің о... – кезекші... – сыйлық... — көлшік... — іскер... – сөздік... – достық...
Кауру
24.12.2021 05:11
Сколько учеников в Северо-Восточном округе (СВ) выбрали в качестве любимого предмета математику? ответ на этот во запишите в ячейку Н2 таблицы. Постройте круговую диаграмму,...
maks695
18.03.2022 09:31
Отметь 2 слова в которых есть одинаковые согласный звук 1 Кино 2 ложка 3 липа 4 шить...
damilya12sladcoeshka
18.03.2022 09:31
Художник нарисовал репродукцию картины. Запишите изображение исправив ошибку ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.