В программе Алго, напишите программу для нахождения произведения цифр натурального числа N, введенного с клавиатуры.

Question

Информатика

Арминия

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

В программе Алго, напишите программу для нахождения произведения цифр натурального числа N, введенного с клавиатуры.

+1

Ответы (1)

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

Настас · Answer 1

Программа написана на языке программирования Pascal

program z1;

var N, p, n1, i:integer;

begin

writeln ('Введите число N') ;

readln (N) ;

p:=1;

for i:=1 to n do

if N>0

then begin n1:=N mod 10; p:=p*n1; N:=N div 10; end;

write ('Произведение=', p) ;

end.