Дано трехзначное число.Найти произведение его цифр.Составить ** языке Паскаль (программу)...

Question

Дано трехзначное число.Найти произведение его цифр.Составить на языке Паскаль (программу) желательно на тетрадьном листе.пж

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(abs(ReadInteger()).ToString().Select(x->x.ToDigit()).Aggregate(Real(1),(x,y)->x*y));
end.

Answer 2

Var
a,com:integer;
begin
Readln(a);com:=1;
while (a>0) do begin
com:= com* (a mod 10);
a:=a div 10;
end;
writeln(com);
end.

Comments

Точно правильно???

---

работает с произвольным числом, не только с трехзначным