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

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт