Найти произведение цифр заданного черыхехзначного числа. (в паскале, неиспользуя цикл)
5-9 класс
|
AnnyaSalakhova
10 июля 2013 г., 2:54:26 (10 лет назад)
л1и2з3а4
10 июля 2013 г., 4:35:32 (10 лет назад)
VAR
n, ans: Integer;
BEGIN
Read(n);
ans := n mod 10; n := n div 10;
ans := ans * (n mod 10); n := n div 10;
ans := ans * (n mod 10); n := n div 10;
ans := ans * (n mod 10);
Write(ans);
END.
Ответить
Другие вопросы из категории
У причала стояла лодка, которая могла перевозить не больше двух человек. К реке подошли четверо, которым было необходимо переправииться на противоположный
берег. Все они переправились через реку без посторонней помощи и продолжили свой путь, причем лодку поставили на тот же причал, откуда ее и взяли.
1)Переведите число из двоичной системы счисления в десятичную, восьмеричную,шестнадцатеричную:1000111001.
2)Переведите число из десятичной системы счисления в двоичную,восьмеричную,шестнадцатеричную:1517.
3)Переведите число из восьмеричной системы счисления в десятичную, двоичную:11123.
Читайте также
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО
Найдите произведение цифр заданного четырехзначного числа...Сделать программу на Паскаль
№1. Составить программу нахождения длины окружности и площади круга по указанному радиусу R. №2. Дано трехзначное число. Найти произведение цифр
числа.
№3. Меньшее из трех чисел увеличить в 3 раза.
Вы находитесь на странице вопроса "Найти произведение цифр заданного черыхехзначного числа. (в паскале, неиспользуя цикл)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.