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.