Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kli200192uasmi
28.01.2021 07:11 •
Информатика
Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа. !
Показать ответ
Ответ:
SureckMozg
08.07.2020 18:55
Var
n, prod : integer;
begin
read (n);
prod := 1;
while n > 0 do
begin
prod := prod * (n mod 10);
n := n div 10;
end;
write (prod);
end.
0,0
(0 оценок)
Ответ:
zdiana1
08.07.2020 18:55
var
k, l: integer;
begin
l := 1;
readln(k);
while (k > 0) do
begin
l := l * (k mod 10);
k := k div 10;
end;
writeln(l);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vadimqq
05.06.2023 10:53
Вычисли результат выполнения следующего фрагмента код n=4 Sum=0 i=1 while i...
Ananzi
01.06.2021 16:26
3. Дан фрагмент кола программы, которая выводит на экран сообщение «Привет» пять раз, выберите недостающие фрагменты кода во второй и четвертой строчках кола, 4.ру...
antoshkaromanov
30.08.2021 22:23
Етверо друзей решили отправиться в путешествие разными видами транспорта. Миша преодолел на лодке 61 км, на автомобиле 55 км, на вертолёте 144 км.Женя проплыл на лодке...
1Err0r1
23.05.2023 23:37
Музыкальный фрагмент был записан в формате стерео (двухканальная запись), оцифрован и сохранён в виде файла без использования сжатия данных. Размер полученного файла...
qwerty91a
08.05.2020 18:21
Разложить число по основанию системы: 91050237 в 10...
tarringate
06.01.2023 01:47
Когда моя мама училась в школе, то все было совсем по-другому, не так как сейчас в было другое время, другое отношение к учебе и к учителям, другие возможности. тогда...
alenkashkiteva
06.01.2023 01:47
Белочка заготовила орехов в два раза больше чем грибоа, потом принесла еще 8 грибов. скллько асего орехов заготовила белочкп...
goum1
06.01.2023 01:47
Написать предложения по вопросам кто что делает и где например белка прыгает по деревьям.медведь,заяц,лиса,волк....
lolo555
06.01.2023 01:47
За 1 целую 1/2 часов теплоход км. за какое время он пройдёт 70 км...
nermine
06.01.2023 01:47
Разделить слова на 3 столбика : ек ик чик поставить в форму нож,мяч,костюм,карман,замок,сироп,платок,звонок,букет,мост,орех,барабан,хвост...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, prod : integer;
begin
read (n);
prod := 1;
while n > 0 do
begin
prod := prod * (n mod 10);
n := n div 10;
end;
write (prod);
end.
k, l: integer;
begin
l := 1;
readln(k);
while (k > 0) do
begin
l := l * (k mod 10);
k := k div 10;
end;
writeln(l);
end.