Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Alakey11
14.05.2021 19:11 •
Информатика
Найти разность между произведением и суммой цифр трехзначного числа. pascal
Показать ответ
Ответ:
andreymikilov
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 оценок)
Популярные вопросы: Информатика
Чика1без2ника
17.03.2023 23:01
Почему же двоичная кодирование используется в вычислительной технике...
Amina141002
17.03.2023 23:01
1. дан массив из 20 чисел. в массиве найти и вывести на печать минимальные и максимальные элементы. 2. даны три числа. оформить в виде функции вычисление среднеарифметического,...
lera0078
17.03.2023 23:01
50 ! написать программы на языке с++ 1) данные числа x,y являются координатами точки, лежащей в первой координатной четверти. 2) даны два трехзначных числа. поменять...
valeriia8
17.03.2023 23:01
По гражданскому воспитанию! вопросы из учебника: веришь ли ты в свои силы? согласен/согласна ли ты с тем, что только по поступкам (а не по словам) определяется ценность...
LeBleque
17.03.2023 23:01
Каждая буква в имени великого тюркско-исламского ученого заменена ее номером в алфавите: 22 1 18 1 2 10 последовательно пронумеровав все буквы алфавита, определите, о...
дана399
30.05.2021 05:35
на Pascal написать программу...
DashaKim117
05.09.2022 05:51
Задан ряд последовательных натуральных чисел от n до m (n...
vladagabriell
05.09.2022 05:51
Постфиксное выражение – это числовое выражение, в котором сначала записываются операнды, а затем знак операции. например: 3 5 + означает 3+5. особенностью постфиксных...
Pon4ik66
05.09.2022 05:51
Напишите простейшую в pascal (алгоритмы ветвления if then): ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом год , года , лет . например,...
kydaxtaxtax
05.09.2022 05:51
Вцелочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов. то-есть дан массив в которым есть нулевые значения.например: 20330120...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.