Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Mihailkim2018
17.06.2020 18:16 •
Информатика
Напишите программу которая считает произведение цифр введенного натурального числа..
Показать ответ
Ответ:
VERONIKA75498768783
25.08.2020 12:59
Var
n, p: integer;
begin
write('Число: ');
readln(n);
p := 1;
while n > 0 do
begin
p := p * (n mod 10);
n := n div 10
end;
writeln('Произведение цифр = ', p);
end.
Тест №1
Число: 54321
Произведение цифр = 120
Тест №2
Число: 54320
Произведение цифр = 0
0,0
(0 оценок)
Популярные вопросы: Информатика
snkashleva133
18.04.2022 08:31
Составить программу и блок-схему для решения . решение каждой сопроводить пояснительной запиской с описанием используемых в конструкций языка си. a[n] найти среднее...
ника2757
14.09.2022 11:42
Кто такой эйлер, в честь кого названа графическая схема, обозначающая отношения между множесвами?...
SvetaCat115
28.09.2022 19:25
Что такое спецификация маршрута? - имеет ли корневой каталог имя? - какой диск может быть загрузочным (системным)?...
gabpara007
12.04.2022 03:00
Ввещественной таблице a[1: 10] найдите количество всех ненулевых элементов...
Subject338
21.05.2022 04:37
Императивные нормы в нк рф диспозитивные нормы нк рф по 3 шт надо...
UtkinaVioletta
16.01.2022 11:06
Древний китайский писал о строительстве великой китайской стены: «срывали горы, засыпали ущелья. как дешево ценили труд народа». какой вывод можно сделать их этих...
ksenya64
30.07.2020 09:04
Одним з основних лісозаготівельних районів україни є?...
lyda777
24.02.2021 06:53
Пунктуационная ошибка допущена в предложениях выберите один или несколько ответов: везде: на крышах домов, на деревьях, на траве, уже выгоревшей, чувствовалось приближение...
ДашаКошкина1
23.01.2023 08:01
30 ! ← 10 класс. оформить как : два заряда 5 × 10^-9 кл и -6 × 10^-9 кл находятся на расстоянии 1м в вакууме. рассчитайте силу взаимодействия между ....
ИльяКорецкий
18.10.2021 22:47
1. расскажите о том, как был разделен мир между крупными западными державами. какой стране удалось завоевать больше всего колоний? почему? как успехи в колониальной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, p: integer;
begin
write('Число: ');
readln(n);
p := 1;
while n > 0 do
begin
p := p * (n mod 10);
n := n div 10
end;
writeln('Произведение цифр = ', p);
end.
Тест №1
Число: 54321
Произведение цифр = 120
Тест №2
Число: 54320
Произведение цифр = 0