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

@Rick222 · Регистрация: 10.09.2013

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

@CodeR · 15.10.2013, 10:32

Pascal

Var n,i,k,s,m:longint;
Begin
    write('N = ');readln(n);
    For i:=10000000 to 99999999 do
    Begin
      m:=i;s:=0;
      While m>0 do
      Begin
        s:=s+m mod 10;
        m:=m div 10;
      End;
      if s>n then inc(k);
    End;
    if k>0 then writeln('Таких чисел = ',k)
     else writeln('Нет');
    readln;
End.

@Rick222 1 / 1 / 0 Регистрация: 10.09.2013 Сообщений: 77
		1
	Определить количество 8 значных чисел, у которых сумма цифр в цифровой записи числа больше n 14.10.2013, 16:43. Показов 3053. Ответов 1 Метки нет (Все метки) Дано натуральное число N . определить кол-во 8 значных чисел , у которых сумма цифр в цифровой записи числа больше , n. Если таких числе нет , то вывести слово "нет". 0

Опции темы

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

Решение