Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Программа написана на языке программирования 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.