Помогите решить задачу по программированию. Дано четырёхзначное число. Найти: а) сумму его цифр; б) произведение его циф

var n:integer;
pro, sum:integer;
begin
write('Введите число: '); readln(n);
pro:=1; sum:=0;
while n>0 do
begin
pro:=pro*(n mod 10);
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln('Произведение = ', pro);
writeln('Сумма = ', sum);
end.

На каком языке программа?

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

div - поделить нацело
mod - остаток от деления (паскаль) в си надо соответсвующие функции поставить.
x - число
x1 - x4 - цифры

определяем цифры:
x1 := x mod 10
x2 := (x mod 100) div 10
x3 := (x mod 1000) div 100
x4 := x div 1000

сумма : x1+x2 + x3 + x4
произведение: x1* x2 * x3 * x4

Чтобы найти цифры из которых состоит число нужно сначала найти сколько в нем тысяч - записать в переменную количество тысяч, отнять от числа полученные тысячи. Из результата найти - сколько в нем сотен, записать в переменную количество сотен, отнять от числа сотни - получится число с десятками. Повторить так же с десятками, результат - 3 переменных с количеством тысяч, сотен, десятков и результат первоначального числа - количество едениц. С ними провести операции умножения и сложения.

создайте переменную присвойте ей число 0 добавляйте число 1 запишите это в другую переменную еще +1 а потом суммируйте их в цикле