Question

дано целое трехзначное число x составьте программу вычисления суммы и произведения цифр трехзначного числа x значения x ввести с клавиатуры

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=abs(ReadInteger).Tostring.Select(x->x.ToDigit);
writeln('сумма цифр: ',a.Sum);
write('произведение цифр: ',a.Aggregate(Real(1),(x,y)->x*y));
end.