Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
333307
26.01.2020 17:20 •
Информатика
Написать программу для pascal. найти произведение цифр числа введенного с клавиатуры.
Показать ответ
Ответ:
aprishkom
03.10.2020 16:50
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BanderSap
15.12.2022 16:07
1.Вибери істинні висловлювання. a) Відеофайли не можуть містити аудіоданих. b) Кожний кадр відео завжди зберігається в окремому файлі. c) Відеофайл містить набір статичних...
Xkdidid
13.04.2023 02:54
Що означає Будь ласка до іть...
Аняняняняняняняяня
01.02.2021 08:33
Унас в стране планируется ввести 100- оценку. но оценивать потребуется по привычной шкале. будем считать, что оценка до 25-это двойка, от 26 до 50 - это тройка, от...
dgfhdhdj95
01.02.2021 08:33
Зміни програму робінзони так, щоб уразі нестачі житлової площі відображалося ще кількість квадратних метрів, якої невистачає. вхідні данні: a-сторона острова k-кількість...
polozyurayuras
27.02.2022 06:57
50 кумир используя команду два одномерных массива, напишите программу, соединяющую следующие точки: (0; 100) (200; 300) (300; 200) (300; 100) (200; 100) (200; 0) (100;...
GORH8
06.08.2022 18:07
Дано целое трехзначное число, определить , оканчивается ли оно на 3. РЕШИТЬ В С++...
jejixex8
03.03.2020 08:20
определите значение переменной b после выполнения фрагмента алгоритма с решением...
пятимейкер
21.07.2020 02:51
1)Напишите программу,которая принимает от пользователя два целых числа,затем их складывает и выводит результат. 2)Напишите программу (на Pascal или C++),которая выводит...
VladGulevevatiy
25.04.2021 06:41
Каково происхождение термина презентация...
reginam800eymailru
03.07.2021 02:39
Берілген антивирус түрлерін жазу. помагитее....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.