Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число. https://www.cyberforum.ru/ pascal/ thread977268.html	Pascal Сосчитать количество слов Сосчитать количество слов, в которых английских букв больше чем цифр (цифры включены в слова (например: д9ом )). Заранее спасибо!!!
Pascal Удаление символов Создать программу для удаления символов м-ду 1 и последним вхождением заданного с клавиатуры символа. Заранее спасибо!! https://www.cyberforum.ru/ pascal/ thread977222.html	Pascal Удаление пробелов Удалить все лишние пробелы в предложения. (сделать предложение идеальным ) Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread977220.html
Pascal Вычислить сумму ряда с заданной степенью точности ПОМОГИТЕ ПЛИЗ	Pascal Приминение рекурсии к циклу Как применить рекурсию к этому циклу в ф-ии. function IsValid(r: Queens; step: integer) : boolean; var i,j: integer; begin IsValid:=true; if step<=1 then exit; for i:=1 to step-1 do for j:=i+1 to step do begin if (r=r) or (abs(r-r)=abs(i-j)) then begin https://www.cyberforum.ru/ pascal/ thread977018.html
Pascal Заменить значение https://www.cyberforum.ru/ pascal/ thread976971.html Разработать алгоритм и программу для обработки массивов с единственным циклом: При заданных X1, X2, ..... Xn и Y1, Y2......Yn заменить значение каждого неположительного элемента массива X1, X2, .... Xn, абсолютной величиной соответствующего(по номеру) элемента массива Y1, Y2......Yn и подсчитать кол-во замен	Одномерный массив Pascal Помогите пжлст.Разработать алгоритм и программу с единственным циклом: Из одномерного массива X из n элементов сформировать массив T по правилу: T1=X, T2=X1+X2, Tn=X1+X2+X3.....+Xn
Pascal Рекурсия и дополнение программы Объясните где тут рекурсия и нужно дополнить программу чтобы пользователь вбивал n-ное расположение (например 15) и компьютер выводил его. Всего тут 92 расположения. Help plz program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; https://www.cyberforum.ru/ pascal/ thread976938.html	Pascal Цикл: Найти наибольшее положительное целое число n, для кого выполняется заданное условие https://www.cyberforum.ru/ pascal/ thread976825.html Использовать оператор цикла с ПОСТУСЛОВИЕМ. Найти наибольшее положительное целое число n, для кого выполняется условие:-4n+84\sqrt{n}+3\geq 0
Pascal Процедура Double Описать процедуру DoubleX(A, N, X), дублирующую элементы,равные числу X, в массиве A целых чисел размера N Массив A и число N являются входными и выходными параметрами. С помощью этой процедуры продублировать в массивах A, B, C размера NA, NB, NC каждое вхождение чисел XA, XB, XC соответственно. (Паскаль)	Pascal составить программу в паскале используя Procedure https://www.cyberforum.ru/ pascal/ thread976731.html Помогите написать программу

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,587

Записей в блоге: 1

15.10.2013, 10:32

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

15.10.2013, 10:32. Показов 3240. Ответов 1

Метки (Все метки)

Сообщение было отмечено Rick222 как решение

Решение

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.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.10.2013, 10:32

Готовые ответы и решения:

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

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

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

	15.10.2013, 10:32

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.10.2013, 10:32

Помогаю со студенческими работами здесь

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

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

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

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

Наверх