Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
darkbluefox
27.06.2022 20:41 •
Информатика
25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.
Показать ответ
Ответ:
DashaShitova2006
06.10.2020 10:45
Кажется , так.............
0,0
(0 оценок)
Ответ:
Kirill7692
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 оценок)
Популярные вопросы: Информатика
Агент271
07.12.2022 14:41
Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника, номер подразделения и некоторая дополнительная информация. личный код...
П6о6л6я
07.12.2022 14:41
Сколько бит информации содержит запись десятичного числа 9 скільки біт інформації містить запис десяткового числа 9...
diamond1277p08lfa
07.12.2022 14:41
Программа windows movie maker 2.6 скачана , установлена . но не открывается сама программа . я нажимаю , а она не включается ....
1TeD
13.07.2021 07:35
Перечислите сайты которыми вы пользуетесь и они не поддерживают протокол HTTPS...
ПростоЧел228
30.10.2020 00:15
Вычислить: 10011,112 + 75,28 + 13,445. получить результат в десятичной системе счисления....
гога61
30.10.2020 00:15
Отличительными особенностями компьютерного вируса являются...
НиколайБлейд
30.12.2020 15:38
Запишите алгоритм действий ученика по дороге из дома в школу....
marusi220
25.04.2022 05:35
это язык с++ но на казахском...
vavkina2016
01.07.2022 02:16
с информатикой у нас контрольная щас...
liza7634578
10.09.2021 10:11
Установить соответствие между значками и их значениями...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.