Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Какое расстояние должна пробежать собака, чтобы догнать лисицу? https://www.cyberforum.ru/ turbo-pascal/ thread752051.html 4.Собака погналась за лисицей, которая была на расстоянии 30 м от нее. Прыжок собаки равен 2 м, а прыжок лисицы – 1 м. В то время как лисица делает 3 прыжка, собака делает 2 прыжка. Какое расстояние...	Через сколько лет данная сумма превысит С руб.? Turbo Pascal Сумма в А руб. лежит на расчетном счету. На сумму начисляется в% каждый год прибыли. Прибыль со счета не снимается. Через сколько лет данная сумма превысит С руб.?
Turbo Pascal Дан массив B, состоящий из 10 элементов типа Boolean. Вывести на экран индексы элементов, типа False. https://www.cyberforum.ru/ turbo-pascal/ thread752037.html Дан массив B, состоящий из 10 элементов типа Boolean. Вывести на экран индексы элементов, типа False.	Turbo Pascal Дан двумерный массив. Вставьте первую строку после строки, в которой находится первый встреченный минимальный элемент. Дан двумерный массив. Вставьте первую строку после строки, в которой находится первый встреченный минимальный элемент. https://www.cyberforum.ru/ turbo-pascal/ thread752036.html
Turbo Pascal Сформировать массив L из массивов A и B путем их слияния так, чтобы сначала располагались все элементы массива A, а затем все элементы массива B. Задан массив A из N элементов и массив B из M элементов. Сформировать массив L из массивов A и B путем их слияния так, чтобы сначала располагались все элементы массива A, а затем все элементы массива...	Turbo Pascal Система линейных уравнений https://www.cyberforum.ru/ turbo-pascal/ thread752019.html Разработать систему наследуемых объектов и программу, их использующую. Для нахождения транспонированной, союзной, обратной матриц различных типов (целого, вещественного, комплексного), проверки...
Turbo Pascal Анализ трех целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread752007.html Вводятся три произвольных целых числа A, B и C. Написать программу, которая выводит... а) сколько среди них нулей, б) ответ на вопрос есть ли среди них два нулевых значения («есть» или...	Turbo Pascal Изменение значений переменных Даны две переменные x и у. Если значения обеих переменных больше 0, то переменной х присвоить значение квадратного корня из х, а переменной у —значение квадратного корня из у, иначе оба числа...
Turbo Pascal Как в char обратиться к определенному символу? https://www.cyberforum.ru/ turbo-pascal/ thread752001.html Как в char обратиться к определенному символу, без множин.	Turbo Pascal Динамические структуры данных: Перестройте данный список в соответствии с номерами, заданными массивом 1.Дан неупорядоченный линейный односвязный список и массив, содержащий номера соответствующих элементов в упорядоченном списке. Перестройте данный список в соответствии с номерами, заданными... https://www.cyberforum.ru/ turbo-pascal/ thread751990.html
Turbo Pascal Выстрел пушки по мишени Составьте программу вывода в левой части экрана изображения пушки. В правой части экрана случайным образом появляется и исчезает мишень. Нажатием клавиши Enter производится выстрел из пушки. Момент...	Turbo Pascal Поменять местами с первым минимальный элемент каждого столбца массива все тот же зачет...- вторая задачка Задана матрица С(5,5). Поменять местами с первым минимальный элемент каждого столбца массива. https://www.cyberforum.ru/ turbo-pascal/ thread751862.html

CodeR

Фрилансер

3417 / 2814 / 3000

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

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

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

04.01.2013, 09:11

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х - Turbo Pascal - Ответ 3948876

04.01.2013, 09:11. Показов 1889. Ответов 1

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

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

Решение

Pascal

Var a,b,i,x,s,t:integer;
Begin
    write('A = ');readln(a);
    write('B = ');readln(b);
    write('X = ');readln(x);
    For i:=a to b do
    Begin
      s:=0;t:=i;
      While t>0 do
      Begin
        s:=s+t mod 10;
        t:=t div 10;
      End;
      if s>x then write(i,' ');
    End;
    readln;
 End.

Вернуться к обсуждению:
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

04.01.2013, 09:11

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

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа...

Дан натуральный отрезок чисел [A, B]. Найти те числа этого отрезка, которые оканчиваются на 3
дан натуральный отрезок чисел . Найти те числа этого отрезка, которые оканчиваются на 3

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.01.2013, 09:11

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

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки
Дан натуральный отрезок чисел . Найти те числа этого отрезка, которые являются степенью двойки....

Дан натуральный отрезок [a,b]. Вывести из этого отрезка все числа кратные 7
Дан натуральный отрезок . Вывести из этого отрезка все числа кратные 7.

Найти числа отрезка, суммы делителей которых больше заданного числа Х.
Проверьте программу пожалуйста.Если можно сделать программу с помощью дополнительного оператора z...

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше...

Наверх