Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Анализ 2-ух мерного массива https://www.cyberforum.ru/ pascal/ thread178903.html В двумерном массиве A проанализировать последний элемент в строке. Если он больше предшествующего, то найти минимальное этой строки, иначе строку рассортировать по убыванию. СПАСИБО!!!!	Pascal Количество элементов массива, удовлетворяющих условию Дан числовой массив А, состоящий из n натуральных чисел. Определить кол-во элементов массива, удолетворяющих условию 2к<Ак<3к!!!!! \пояснить кто плиз задачу! я не совсем понял в чем смысл этого условия! тоесть какой-то елемент массива должен быть больше 2к и меньше 3к!!! 2к, 3к, это какие ячейки? что вместо к должно быть?
Pascal Печать матрицы помогите составить подпрограмму, которая формирует и выводит на печать единичную матрицу порядка N и нужно проверить ее работу на матрицах порядка 3, 5,7,12,14 https://www.cyberforum.ru/ pascal/ thread178896.html	Pascal Из модулей членов данной последовательности выбрать наибольший 1 задача: Даны целые а1,...,an. Из модулей членов данной последовательности выбрать наибольший. Получить новую последовательность из n целых чисел (нулей и единиц), заменяя ai нулем, если \|ai\| не совпадает с выбранным значением, и заменяя ai единицей, если совпадает. 2 задача: В массиве записана информация о росте каждого из 25 учеников класса (в порядке убывания роста). Из класса... https://www.cyberforum.ru/ pascal/ thread178884.html
Pascal про учеников В массиве хранится информация о численности учеников в каждом из 42 классов школы. Выяснить, верно ли, что общее число учеников в школе есть четырехзначное число.	Pascal среднее значение массива https://www.cyberforum.ru/ pascal/ thread178881.html Найти среднее значение элементов заданного массива размером 5. Преобразовать исходный массив, вычитая из каждого элемента среднее значение.
Pascal как прочесть и покозать "table " я навичок в паскале и у меня простой вопрос. как прочесть и покозать "table " (не знаю как на русском) https://www.cyberforum.ru/ pascal/ thread178870.html	Pascal Двухмерный массив Помогите решить задачку есть матрица 4 на 12 нужно получить новую матрицу в которой элемент равен единице если соответствующий ему элемент исходной матрицы больше элемента, расположенного в его строке на главной диагонали, и равен нулю в противном случае
Pascal вычислить сумму квадратов https://www.cyberforum.ru/ pascal/ thread178853.html Вычислить сумму квадратов всех целых чисел, попадающих в интервал (lnx, ex), х>1 буду очень признателен	Pascal Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива. https://www.cyberforum.ru/ pascal/ thread178850.html
Pascal Симпсон + Графика Задание: вычислить значение определенного интеграла по формуле Симпсона. Решение должно быть наглядно представлено пользователю в виде графиков (на график поместить подынтегральную функцию и параболы, приближающие криволинейную фигуру). Uses crt, graph; Var a, b, { Границы отрезка } r, r2, { Предыдущее и текущее приближенные значения...	Pascal Привести любую программу с результатом тестирования https://www.cyberforum.ru/ pascal/ thread178839.html Столкнулся с проблемой тестирования.. существуют ли стандарты тестирования? Применять черный или белый ящик? для образца прошу привести любую программу с результатом тестирования. Спасибо.

Puporev

Почетный модератор

64288 / 47587 / 32739

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

Сообщений: 115,182

20.10.2010, 13:40

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

20.10.2010, 13:40. Показов 7205. Ответов 1

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

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

Решение

Pascal

uses crt;
procedure Summa(a:longint;var s:byte);
var b:longint;
begin
b:=a;
s:=0;
while b>0 do
 begin
  s:=s+b mod 10;
  b:=b div 10;
 end;
end;
var a,b,i,x:longint;
    k,sm:byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа, второе больше первого:');
readln(a,b);
until(a>0)and(b>a);
write('Введите число для сравнения сумм цифр x=');
readln(x);
k:=0;
writeln('Числа из интервала [',a,',',b,'] сумма цифр которых больше ',x);
for i:=a to b do
 begin
  Summa(i,sm);
  if sm>x then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Таких чисел нет');
readln
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.10.2010, 13:40

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.10.2010, 13:40

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

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

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

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

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

Наверх