Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
okuprie
05.04.2022 06:18 •
Информатика
25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.
Показать ответ
Ответ:
Angelina5353
06.10.2020 10:45
Кажется , так.............
0,0
(0 оценок)
Ответ:
vankovvandam
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 оценок)
Популярные вопросы: Информатика
кристина2626
09.04.2023 05:41
1. Записать одно понятие, одно высказывание, одно умозаключение (Опираясь на определения). 2. Составить 3 высказывания (А, В и С), такие что Аи С - истины, а B- ложно (Указать их...
Мегамозг0511
19.11.2021 16:25
Как добавить мини-игры на сервер в майне?(моно скинуть видео)...
Тотошка33
01.06.2020 09:02
Для вектора a размерностью n=10 и произвольного числа x вычислить число y по формуле. Необходимо написать на C++....
Аропахора
12.05.2022 05:22
Составить программу в паскале. дано натуральное число n. вычислить: p=(1-1/2^2)(1-1/3^2)**(1-1/n^2), где n 2...
3AKBACKA
13.05.2020 05:51
Какое условие нужно задать для поиска в сети Интернет информации о растениях, встречающихся как в Норвегии, так и в Бразилии? растения & Норвегия & Бразилия растения % Норвегия...
missiszador
04.05.2021 06:37
Даны три вектора, образующие треугольник a=(a1a2a3) , b=(b1b2b3) , c=(c1c2c3) . Написать программу, вычисляющую площадь проекции этого треугольника на плоскость Ax+By+Cz+D=0 ....
danilrykov200
04.05.2021 06:37
краткими ответами,информатика 1.Что называется базой данных? 2. Какая классификация баз данных существует? 3. Какая модель БД наиболее рас Назовите, какие есть основные понятия организации...
shchepelevason
02.04.2021 08:34
Написать программу , осуществляющую заполнение массива случайными числами из интервала от -10 до 10, вывести его на экран, а затем все элементы из интервала от -5 до 5 увеличить на...
222812
30.09.2020 11:30
Звук длительностью 3 минуты оцифрован с частотой 11000 гц. глубина кодирования - 24 бита. определите размер полученного файла в мбайтах....
BloodRainbow
29.03.2021 12:06
Надо составить все возможные нулевые многчлены стандартного вида используя каждый из одночленов 3x (в квадрате) -2x, 5 не более одного раза...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.