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

Question

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

Answer 1

Var number,a,b,c:integer;
begin
writeln('Введите трёхзначное число');
readln(number);
a:=number div 100;
b:=(number div 10) mod 10;
c:=number mod 10;
writeln(a,' - Первая цифра числа');
writeln(b,' - Вторая цифра числа');
writeln(c,' - Третья цифра числа');
writeln('Сумма цифр числа = ',a+b+c);
writeln('Произведение цифр числа = ',a*b*c);
end.