Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дано натуральное n. Вычислить значение выражения Помогите пожалуйста решить задания. 2) Дано натуральное n. Вычислить (рис.2) https://www.cyberforum.ru/ turbo-pascal/ thread691628.html Дано натуральное n и действительные a1, a2,..., an. Вычислить сумму Turbo Pascal
Помогите пожалуйста решить задания. 3) Дано натуральное n и действительные a1, a2,..., an. Вычислить (рис.3)
Turbo Pascal Сосчитать произведение всех чисел от 1 до N Здрасте! Помогите с паскалем. Может быть For i:=2 to n ... Надо сделать задачку, чтобы считать произведение всех чисел от 1 до N при чем, если N четное, то 2*4*6*8..N, если N не четное, то 1*3*5..N Вот что я сделал и не работает, при вводе числа 6 получается 720! --------------------------------------------------- Program q2; var chet, i, nechet, x: integer; label M1, M2; begin https://www.cyberforum.ru/ turbo-pascal/ thread691620.html Turbo Pascal Составить программу вычисления таблицы значений функции f(x) для N значений аргумента Помогите пожалуйста решить задания. 1) Составить программу вычисления таблицы значений функции f(x) для N значений аргумента x, равномерно распределенных на отрезке . Для проверки программы задать N=10, A=0,55, B=1 (рис.1) https://www.cyberforum.ru/ turbo-pascal/ thread691608.html
Если хотя бы два числа меньше ноля, то вывести наименьшее из них, в противном случае найти их сумму Turbo Pascal
"Составьте программу, которая вводит с клавиатуры 3 разных целых числа, каждое из которых по абсолютной величине не превосходит 100. Если хотя бы два числа меньше ноля, то вывести наименьшее из них, в противном случае найти их сумму" Заранее спасибо!
Turbo Pascal Составить программу, которая преобразует матрицу следующим образом: поэлементно отнимает последнюю строку из всех строк, кроме последней https://www.cyberforum.ru/ turbo-pascal/ thread691585.html
Помогите решить.... Данная прямоугольная матрица размером N × M. Составить программу, которая преобразует матрицу следующим образом: поэлементно отнимает последнюю строку из всех строк, кроме последней.
Turbo Pascal Строка S. Найти любое слово которое начинается и кончается на А. Если таких слов нет, то сообщить об этом. Строка S. Найти любое слово которое начинается и кончается на А. Если таких слов нет, то сообщить об этом. https://www.cyberforum.ru/ turbo-pascal/ thread691570.html Turbo Pascal Вычислить минимальное значение среди элементов вектора с непарными индексами
Задано векторы A,B,C которые имеют n,m,k элементов соответственно. создать программу с использованием функций для каждого вектора: вычислить минимальное значение среди элементов вектора с непарными индексами.
Turbo Pascal переставьте члены так, чтобы отрицательные шли в порядке возрастания в начале массива https://www.cyberforum.ru/ turbo-pascal/ thread691509.html
В данной последовательности целых чисел переставьте члены так, чтобы отрицательные шли в порядке возрастания в начале массива.
Turbo Pascal Упорядочить элементы, стоящие на четных местах по невозрастанию, а на нечетных – по неубыванию Решить используя одномерный массив и сортировку обменом. Дан массив x целых чисел. Упорядочить элементы, стоящие на четных местах по невозрастанию, а на нечетных – по неубыванию. https://www.cyberforum.ru/ turbo-pascal/ thread691508.html
Turbo Pascal Напишите программу замены отрицательных элементов линейного вещественного массива Y[1.N] на их квадраты
Напишите программу замены отрицательных элементов линейного вещественного массива Y на их квадраты
Turbo Pascal Найти наибольшее количество цифр, идущих в ней подряд https://www.cyberforum.ru/ turbo-pascal/ thread691499.html
Работа с операциями над строками, стандартными операциями и функциями для строк(length, copy, upcase, pos, insert, delete, str, val), разработка программы с исполнением данных строкового типа и символьных векторов.(задача:Дана строка. Найти наибольшее количество цифр , идущих в ней подряд.)
539 / 399 / 99
Регистрация: 18.08.2012
Сообщений: 1,024
08.11.2012, 09:16 0

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

08.11.2012, 09:16. Показов 1535. Ответов 2
Метки (Все метки)

Ответ

Если считать цифры в десятичной записи, то при условии, что BYTE<=255, наибольшую сумму цифр даст десятичное число 99 (9+9=18). Если считать в двоичной записи, то наибольшая сумма равна 2. Если считать в 16-ричной записи, то BYTE<=FF и тогда максимальная сумма 16-ричных цифр в десятичном выражении будет равна 30. Для чего здесь писать программу и кто это придумал?

Вернуться к обсуждению:
Определить, есть ли среди чисел такие, в которых сумма старшей и младшей цифр больше заданного числа Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2012, 09:16
Готовые ответы и решения:

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

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

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

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

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

Определить, есть ли среди цифр заданного числа одинаковые
Здравствуйте! Прошу помощи при написании одной программы на turbo pascal. Формулировка вопроса...

Определить цифры, которые находятся рядом и сумма которых больше заданного числа
Как можно решить такое задание : &quot; Ввести из клавиатуры шестизначное число, определить цифры,...

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

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

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