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

Question

Информатика

Женя

15 сентября, 14:21

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

+4

Ответы (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.