Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
danilstal14
02.06.2020 08:49 •
Информатика
Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324
Показать ответ
Ответ:
срочно118
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 оценок)
Популярные вопросы: Информатика
Данил28645
29.09.2021 00:45
Водной из кодировок utf-16 каждый символ кодируется 16 битами. гриша написал текст (в нём нет лишних пробелов): «бобр, белка, суслик, мышовка, выхухоль,...
psheni4nayaLiza
15.12.2021 04:45
Пропускная некоторого канала связи 114 688 бит/ с. сколько времени займёт передача файла объёмом 350 кбайт по этому каналу?...
Katyamanubata
21.11.2022 14:16
4. отметьте верный признак объекта: a. величинаб. значениев. свойствог...
динара266
09.01.2021 01:47
Сколько cd объемом 400 мбайт потребуется для размещения информации полностью занимающей жёсткий диск емкостью 50 гбайт?...
hamidullinranis
09.03.2023 17:20
50 ! запиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на тина . ! ответ не...
belikvlad14
16.03.2022 16:17
Сделать в с++ Заполнить файл f последовательного доступа целыми числами, полученными с генератора случайных чисел. Вывести его на экран. Получить в файле g те компоненты...
tkaa
16.02.2020 08:38
Проверочная работа по теме «Файлы и файловая структура» Вариант 2 1. Дан путь к файлу: С:\ Мои документы\ Мои рисунки\ Растения\ Цветы\ Ромашки.bmp Укажите: А) имя файла...
TomaSharik
03.02.2023 07:19
Определите результат формулы =степень(а1; в3) , если а1=5, в3=4 в программе ms excel 2003....
Сакураджи
16.06.2022 02:39
Одноклеточная амеба каждые 3 часа делится на 2 клетки. определить, сколько клеток будет через 3,6,9, 12, часа. pascal...
doreaan
20.11.2020 03:30
Уисполнителя квадратор две команды, которым присвоены номера. 1. возведи в квадрат.2. вычти 3.первая из них возводит число на экране во вторую степень, вторая- вычитает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.