Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа.
Срочно нужно!!!
Срочно нужно!!!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
n, prod : integer;
begin
read (n);
prod := 1;
while n > 0 do
begin
prod := prod * (n mod 10);
n := n div 10;
end;
write (prod);
end.
k, l: integer;
begin
l := 1;
readln(k);
while (k > 0) do
begin
l := l * (k mod 10);
k := k div 10;
end;
writeln(l);
end.