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.