Предмет: Информатика, автор: abay1983

Задается положительное целое число N. Нужно вывести произведение его цифр.

Ответы

Автор ответа: MaxKrivich
0
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.
Похожие вопросы
Предмет: Биология, автор: East0015
Помогите пожалуйста решить задачи 
1.У овса раннеспелость доминирует над позднеспелостью. Гетерозиготное раннеспелое растение скрестили с позднеспелым. Получили 28 растений. 
1. Сколько различных типов гамет образуется у раннеспелого родительского растения?
А) 1 Б) 2 В) 3 Г) 4 
2. Сколько различных типов гамет образуется у позднеспелого родительского растения? 
А) 1 Б) 2 В) 3 Г) 4 
3. Сколько гетерозиготных растений будет среди гибридов?
А) 28 Б) 21 В) 14 Г) 7 
4. Сколько среди гибридов будет раннеспелых растений?
А) 28 Б) 21 В) 14 Г) 7
5. Сколько разных генотипов будет у гибридов? 
А) 1 Б) 2 В) 3 Г) 4
2.
Что можно сказать о характере наследования окраски плодов яблони при скрещивании сорта Антоновка (зеленые плоды) с сортом Уэлчи (красные плоды), если все плоды гибридов, полученных от этого скрещивания, имели красную окраску? Запишите генотип родителей и гибридов.