Для введенного целого числа вычислите произведение его цифр

@Muslim · Регистрация: 16.10.2012

@sumrak95 · 16.10.2012, 15:18

Pascal

var n,m,pr:integer;
begin
pr:=1;
readln(n);
repeat
m:= n mod 10;
n:=n div 10;
pr:=pr*m;
until n=0;
writeln(pr);
readln;
end.

@Muslim · 16.10.2012, 16:06 **[ТС]**

Мне нужно Как ты это написал объяснение

@sumrak95 · 16.10.2012, 16:17

Добавлено через 49 секунд

Сообщение от Muslim

Мне нужно Как ты это написал объяснение

Каждую строчку расписал

Pascal

var n,m,pr:integer;
begin
pr:=1;              //присваиваем начальное значение произведения 1
readln(n);         //вводим число
repeat             //повтоярять
m:= n mod 10; //отделяем последнюю цифру в числе
n:=n div 10;    //отбрасываем последнюю цифру т.к. она больше не нужна
pr:=pr*m;       //произведение умножаем на отделившуюся каждый раз цифру
until n=0;        //пока количество цифр в числе не будет равным 0
writeln(pr);     //вывести произведение
readln;
end.

@Muslim 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 7
		1
	Для введенного целого числа вычислите произведение его цифр 16.10.2012, 15:07. Показов 2049. Ответов 3 Метки нет (Все метки) Для введенного целого числа вычислите произведение его цифр 0

@Muslim 0 / 0 / 0 Регистрация: 16.10.2012 Сообщений: 7
	16.10.2012, 16:06 [ТС]	3
	Мне нужно Как ты это написал объяснение 0

Опции темы