Форум программистов, компьютерный форум, киберфорум
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, а затем все элементы массива B. Значения N и M ввести с клавиатуры, а массивы A и B сформировать из случайных чисел в диапазоне от 0 до 100.
Turbo Pascal Система линейных уравнений https://www.cyberforum.ru/ turbo-pascal/ thread752019.html
Разработать систему наследуемых объектов и программу, их использующую. Для нахождения транспонированной, союзной, обратной матриц различных типов (целого, вещественного, комплексного), проверки матрицы на единичность. С помощью этих объектов решить систему линейных уравнений.
Turbo Pascal Анализ трех целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread752007.html
Вводятся три произвольных целых числа A, B и C. Написать программу, которая выводит... а) сколько среди них нулей, б) ответ на вопрос есть ли среди них два нулевых значения («есть» или «нет»)Leschenko Mary, названия тем должны быть содержательными, осмысленными, и отражать суть задачи.
Turbo Pascal Изменение значений переменных
Даны две переменные x и у. Если значения обеих переменных больше 0, то переменной х присвоить значение квадратного корня из х, а переменной у —значение квадратного корня из у, иначе оба числа оставить прежними.
Turbo Pascal Как в char обратиться к определенному символу? https://www.cyberforum.ru/ turbo-pascal/ thread752001.html
Как в char обратиться к определенному символу, без множин.
Turbo Pascal Динамические структуры данных: Перестройте данный список в соответствии с номерами, заданными массивом 1.Дан неупорядоченный линейный односвязный список и массив, содержащий номера соответствующих элементов в упорядоченном списке. Перестройте данный список в соответствии с номерами, заданными массивом. 2.. Найдите среднюю по значению вершину в дереве. Помогите а то не понял динамическую структуру данных https://www.cyberforum.ru/ turbo-pascal/ thread751990.html
Turbo Pascal Выстрел пушки по мишени
Составьте программу вывода в левой части экрана изображения пушки. В правой части экрана случайным образом появляется и исчезает мишень. Нажатием клавиши Enter производится выстрел из пушки. Момент попадания фиксируется в виде взрыва. Предусмотрите возможность перед выстрелом изменять скорость полета снаряда с индикацией на экране ее значения. Добавлено через 17 минут uses crt, graph; var...
Turbo Pascal Поменять местами с первым минимальный элемент каждого столбца массива все тот же зачет...- вторая задачка Задана матрица С(5,5). Поменять местами с первым минимальный элемент каждого столбца массива. https://www.cyberforum.ru/ turbo-pascal/ thread751862.html
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,595
Записей в блоге: 1
04.01.2013, 09:11 0

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

04.01.2013, 09:11. Показов 1995. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2013, 09:11
Готовые ответы и решения:

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

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

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

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

1
04.01.2013, 09:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.01.2013, 09:11
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru