Пользователь вводит на натуральное число, программа должна рассчитать произведение цифр числа. 9 класс. Язык Паскаль. Прошу наберите программу, как это делается!))

Question

Информатика

Петраха

17 января, 06:11

Пользователь вводит на натуральное число, программа должна рассчитать произведение цифр числа. 9 класс. Язык Паскаль. Прошу наберите программу, как это делается!))

+1

Ответы (2)

Знаете ответ на вопрос?

Вовуня · Answer 1

Program pr_ch;

Uses Crt;

var

n, pr: integer;

begin

write ('Введите число: ') ;

readln (n) ;

pr : = 1;

while n > 0 do begin

pr : = pr * (n mod 10) ;

n : = n div 10

end;

writeln ('Произведение чисел: ', pr) ;

readln;

end.

Амос · Answer 2

Var a, p:integer;

begin

write ('a (>0) = ') ;

readln (a) ;

p:=1;

while a>0 do

begin

p:=p * (a mod 10) ;

a:=a div 10;

end;

writeln ('p = ', p) ;

end.

Пример:

a (>0) = 1385

p = 120