Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ксюша7970
14.11.2021 21:11 •
Информатика
25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.
Показать ответ
Ответ:
Dimaj
06.10.2020 10:45
Кажется , так.............
0,0
(0 оценок)
Ответ:
NurBanu1
06.10.2020 10:45
Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
оуовлвдсл
14.07.2021 02:48
2. Постройте таблицу истинности логической функции . Сравните её с таблицей истинности функции A B....
DityaDyavola
16.01.2022 20:15
Где-то неподалеку от центра Теней – этот район до сих пор не целиком нанесен на карту – расположен небольшой дворик. По крайней мере, здесь на стенках горят факелы, но проливаемый...
Тимур00000000
10.11.2022 19:11
28,2 г оксида одновалентного металла прореагировало с 0,3 моль кислоты,найьи металл...
temaimcheg
10.11.2022 19:11
При сжигании 9,9 г органического вещества выделилось 8,8 г углекислого газа, 1,8г воды и 4,48л хлороводорода. плотность паров вещества по азоту 3,536. вещество реагирует...
viktoriytamaza
10.11.2022 19:11
Вчем заключался смысл жизни людей 19 века?...
Лера240504
10.11.2022 19:11
Решить уравнение! 3 1/6-(z-1 5/6)=2 5/6...
malikamalik1406
10.11.2022 19:11
Найти сходства и различия современной семьи и семьи предыдущих поколений....
ЛюБИмИЦа55
10.11.2022 19:11
Автомат получает на вход трёхзначное число. по этому числу строится новое число по следующим правилам. 1. складываются первая и вторая, а также вторая и третья цифры исходного...
cross666
10.11.2022 19:11
Начертите острый угол авс.на стороне ва отметьте точку м и проведите через нее две прямые одна из которых параллельна а другая перпендикулярна стороне вс я вас умоляю...
Ks113
10.11.2022 19:11
І! знайдіть площу основи і площу осьового перерізу циліндра якщо діагональ його осьвого перерізу дорівнює l і утворює кут альфа із площиною основи циліндра...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.