Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа.Срочно нужно!!!
Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа.
Срочно нужно!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
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.
Гостьvar
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.
Не нашли ответ?
Похожие вопросы