Дано четырехзначное число. найти: сумму его цифр

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