Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
витльд
15.06.2022 19:18 •
Информатика
Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324
Показать ответ
Ответ:
Настя0857
16.08.2020 22:02
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (n,p):=(ReadInteger,1);
while n>0 do (p,n):=(p*(n mod 10),n div 10);
p.Println
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ismashoma
02.12.2021 16:33
Найти информацию про архивирование и разархивирования в чём разница...
tanya3104
30.05.2021 03:09
Помагите только правельно 2 верных вопросов...
abarzenkov
01.10.2020 17:10
1. Що таке блог? 2. Які служби дають змогу вести безкоштовний блог? 3. Правила, що не можна робити при веденні журналу блогу? 4. Підготуйте фотографії та інформацію якими ви б...
mariapodgornova
05.02.2021 11:07
До также одно коливання...
EkaterinaZeyb
02.01.2023 09:31
11. Установите соответствие. Таблица 3.3Инструкция присваивания A *Деление B !=Умножение C. ==Равенство D =Неравенство E =Больше или равн F /...
tkacenkoaleksandra
02.02.2021 22:08
40 солдат пошли к реке, по которой на лодке катаются двое мальчиков. как солдатам переправиться на другой берег, если лодка вмещает только одного солдата либо двух мальчиков,...
OskarWild
31.10.2021 03:36
Как просклонять или заменить другим словом напрашиваюсь ?...
trunczova84
31.10.2021 03:36
Впервый день израсходовали 7/20 т топлива , а во второй на 5/20 т больше ,чем в первый .сколько всего топлива израсходовали за два дня...
JONNYDAPP
31.10.2021 03:36
Определите синтаксическую роль числительных. на столе лежат три тетради....
Andriy1208
31.10.2021 03:36
Из точки вне окружности проведены к ней две касательные, угол между которыми 60 градусов. если расстояние между точками касания равно , то радиус окружности равен?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var (n,p):=(ReadInteger,1);
while n>0 do (p,n):=(p*(n mod 10),n div 10);
p.Println
end.