Задается положительное целое число N. Нужно вывести произведение его цифр.
10-11 класс
|
var s,n:integer;
begin
Readln(n);
s:=1;
repeat
s:=s*(n mod 10);
n:=n div 10;
until n=0;
Writeln(s);
Readln;
end.
Другие вопросы из категории
радиосвязь
телевидение
электрический телеграф
почта
а)В результате подбрасывания монеты (орел, решка) выпала решка.
б)На светофоре (красный, желтый, зеленый) сейчас горит зеленый свет.
в)В результате подбрасывания игральной кости (1, 2, 3, 4, 5, 6) выпало 3 очка.
Читайте также
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.