В программе Алго, напишите программу для нахождения произведения цифр натурального числа N, введенного с клавиатуры.
В программе Алго, напишите программу для нахождения произведения цифр натурального числа 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.
Не нашли ответ?
Похожие вопросы