Как найти произведение цифр четырех значного числа на языке паскаль?

Question

Информатика

Валентыч

17 апреля, 09:08

Как найти произведение цифр четырех значного числа на языке паскаль?

+1

Ответы (1)

Знаете ответ?

Лукреция · Answer 1

Var

x, p:integer;

begin

writeln ('Введите х:') ;

readln (x) ;

p:=1;

p: = x mod 10; x:=x div 10;

p: = p * (x mod 10) ; x:=x div 10;

p: = p * (x mod 10) ; x:=x div 10;

p: = p * x;

writeln (p) ;

end.