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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.