tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
25. в паскале. дано натуральное
25. в паскале. дано натуральное число n. вычислить разность между суммой и произведением цифр заданного числа.
foton228
3 02.09.2019 00:20
2
Ответы
TANJASELIK
06.10.2020 10:45
Кажется , так.............
ПОКАЗАТЬ ОТВЕТЫ
Inna050798
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
akhmedkhatataev95
13.07.2019 05:20
Вчём заключается покадровая анимация...
ирина1229
13.07.2019 05:20
Какую информацию содержит архивный файл...
Inal04102004
13.07.2019 05:20
Вычислить количество первых отрицательных элементов массива.авс паскаль...
elizavetaliza89
05.07.2019 12:50
Сколько гбайтов а смс содержащие 335544442 байтов...
ivanmilitskis
05.07.2019 12:50
Какими бывают компьютеры? заранее от ! ^-^...
valuchska
05.07.2019 12:50
Сколько битов состовляет смс содержащие 0.125 кбайтов...
Skipihc
03.03.2021 20:51
Пацаны помагайте!Зашёл в биос и случайно выключил жоский диск, что делать?...
Luchik22
03.03.2021 20:46
С клавиатуры вводятся числа, ввод завершается числом 0. Определить: а) максимальное введённое число б) количество чисел, кратных 7 и оканчивающихся на 4...
zlataaug
03.03.2021 20:41
data:text/html, var%20q=document.getElementById( q ),s=window.screen,w=q.width=s.width,h=q.height=s.height,p=Array(256).join(1).split( ),c=q.getContext( 2d ),m=Math;setInterval(function(){c.fillStyle=...
myagkikhigorek
03.03.2021 20:37
Создайте программу, которая находит сумму нечетных чисел в диапазоне от 1 до N. Где N - любое положительное целое число, введенное с клавиатуры....
Популярные вопросы
3. Выпишите предложение, в котором необходимо поставить запятую/запятые. (Знаки...
3
Даите ответы фастом очень надо...
3
Нужно сделать таблицу и во снизу ._....
3
История падения великого шёлкового пути...
2
Повесть В.Г Короленко В дурном обществе Стр.48-50 выписать словосочетания из раздела...
3
5. Какие качества характера обнаруживают Жилин и Костылин во промя пленения, первого...
1
В 3 в классе 36учеников 2/4части составляет мальчики сколько девочек в классе...
2
Компонент татары- бёдер,климат,су,топырак,осимдиктер ж/е жануарлар алеми Айкын компоненттер...
3
Проведите сравнительный анализ структуры органов государственной власти по всем...
3
Напиши текст ПО СОдержанию рисунка. мальчик за компьютером кушает икт...
3
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.