1. Сколько существует 5-значных чисел, у которых сумма цифр равна 7?
Число не может начинаться с нуля.
нужно подробное решение. дам больше баллов
.

var i,n,sum,j:integer; m:string;beginfor i:=10000 to 99999 do beginm :=inttostr(i);for j:=1 to 5 dosum:= sum + strtoint(m[j]);if sum = 7 thenwrite(i:6);sum:=0;end;end.