1. Информатика
  2. Задано целое неотрицательное

Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324

sagal63 sagal63    2   25.09.2019 10:30    1

Ответы
nikmonastyrev nikmonastyrev  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastyaant062002 nastyaant062002  13.04.2020 15:44
Зминить складений алгоритм так щоб при змінюванні напрямку руху виконавець змінював образ, подавав звуковий сигнал та повідомлення, у якому саме напрямку він буде рухатисяИнформатика....
veronikamod veronikamod  13.04.2020 15:43
Каков размер (в Килобайтах) несжатого растрового изображения размером 64 х 512 пикселей при использовании 65536 цветов в палитре изображения? С решением....
Masha6996 Masha6996  13.04.2020 15:39
Себебін анықтайықаксатта қолданылады?асында айырма:1. Гиперсілтеме қандай мақсатта қолданы2. Неліктен сілтеме мен гиперсілтемешылық бар?3. Гиперсілтеме құру кезінде «Көмек»...
Август228 Август228  13.04.2020 15:30
Дан одномерный массив. Запиши верный ответ. −16 31 0 −3 3 11 Значение элемента массива — −16. Индекс элемента массива — ....
Sunrise01 Sunrise01  13.04.2020 15:38
Напишите программу, в которой выводится на печать массив из 4 постоянных элементов, равных соответственно 3; 7; 2,1; -4. Формат вывода: элемент1 _ _ элемент2 _ _ элемент3...
MIRROR00000 MIRROR00000  13.04.2020 15:32
Написать программу, которая выводит таблицу значений функции y=x2+5. Диапазон изменения аргумента: от – 4 до 4, шаг приращения аргумента: 1. На экране должно быть выведено:...
jenjenle jenjenle  13.04.2020 15:33
Известны условия хостинга: — стоимость 10 Мбайт дискового рубля в месяц; — стоимость обеспечения пропускной Мбайт/с — 100 рублей в сутки; — стоимость обеспечения пропускной...
ПомидоркаЛ ПомидоркаЛ  13.04.2020 15:33
Ребят нужна Сдать работу нужно к 16:00. А в этой теме вообще не шарю...
sofianastusenko sofianastusenko  13.04.2020 15:34
1.Какая из операций определяет от целочисленного деления? 1. div 2.mod 3.in...
krutoipatan2003 krutoipatan2003  13.04.2020 16:54
На си В треугольнике (см. рис. 2,1, а) заданы углы А, В и радиус описаннойокружности R. Вычислить и вывести на экран остальные элементытреугольника....

Популярные вопросы