Дано трехзначное число. Найдите произведение его цифр. Использовать оператор условия или цикла запрещено

Question

Гервасий

23 июня, 10:52

+5

Ответы (1)

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

Бена · Answer 1

Var a, a1, a2, a3:integer;

begin

read (a) ;

a1:=a div 100;

a2: = (a div 10) mod 10;

a3:=a mod 10;

writeln (a1*a2*a3) ;

end.