Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N

@Eldar94 · Регистрация: 14.06.2011

Author24 — интернет-сервис помощи студентам

Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N. Если таких чисел нет, то вывести слово «нет». Хотя бы так объясните как сделать.

magirus · 29.10.2011, 12:55

нужно срочно почитать

@Rikki · 22.05.2012, 10:40

Помогите с решением,Плизз)Только если можно по мклам это сделать)))

Добавлено через 33 секунды
*циклам))

@klast · 22.05.2012, 12:16

Pascal

var
  q, w, e, r, t, y, u, i, n, sum: longint;
  k: int64;
 
begin
  read(n);
  while n <> 0 do
  begin
    inc(sum, n mod 10);
    n := n div 10;
  end;
  for q := 1 to 9 do
    for w := 1 to 9 do
      for e := 1 to 9 do
        for r := 1 to 9 do
          for t := 1 to 9 do
            for y := 1 to 9 do
              for u := 1 to 9 do
                for i := 1 to 9 do
                  if q + w + e + r + t + y + u + i < sum then inc(k);
  writeln(k);
end.

Добавлено через 2 минуты
в общем, если поствишь в 21 строку вот это

Pascal

                begin
                  if q + w + e + r + t + y + u + i < sum then inc(k);
                  writeln(q, w, e, r, t, y, u, i);
                end;

то поймешь, что и как происходит в проге

@Eldar94 4 / 4 / 3 Регистрация: 14.06.2011 Сообщений: 19
		1
	Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N 28.10.2011, 20:47. Показов 5648. Ответов 3 Метки нет (Все метки) Дано натуральное число N. Определить количество 8-значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N. Если таких чисел нет, то вывести слово «нет». Хотя бы так объясните как сделать. 0

magirus Почетный модератор 28045 / 15778 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	29.10.2011, 12:55	2
	нужно срочно почитать 0

@Rikki 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 22
	22.05.2012, 10:40	3
	Помогите с решением,Плизз)Только если можно по мклам это сделать))) Добавлено через 33 секунды *циклам)) 0

	22.05.2012, 12:16