Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 03.06.2010
Сообщений: 4
1

Найти наибольшее отношение

21.06.2010, 11:11. Показов 1019. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти наибольшее отношение трехзначного числа к сумме чисел, из которых он состоит
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.06.2010, 11:11
Ответы с готовыми решениями:

Найти отношение значений максимального к минимальному
Помогите пожалуйста с задачкой: Дана последовательность, состоящая из 5 чисел. Найти отношение...

Найти наибольшее число
Даны числа х1,х2,х3. Составить алгоритм и программу для вывода на печать наибольшего числа....

Найти наибольшее значение элементов
Помогите, пожалуйста решить. Дана действительная квадратная матрица порядка n . Найти наибольшее...

найти наибольшее число из трех
Суть задачи в том, чтобы найти найбольшее число из трех(причем числа не меньше 10в 100 степени)....

4
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
21.06.2010, 11:25 2
Цитата Сообщение от finder Посмотреть сообщение
трехзначного числа к сумме чисел
Вы цифры с числами не попутали?
0
0 / 0 / 0
Регистрация: 03.06.2010
Сообщений: 4
21.06.2010, 12:16  [ТС] 3
да, точно, к сумме цифр
0
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
21.06.2010, 12:34 4
Задача конечно идиотическая до крайности, ибо и так понятно что наибольшее отношение 100/1, но надо, так надо..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
function Summ(n:word):byte;
var s:byte;
    m:word;
begin
m:=n;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var i,imx,mx:word;
    ot:real;
begin
clrscr;
ot:=100;
imx:=100;
for i:=100 to 999 do
if i/Summ(i)>ot then
 begin
  ot:=i/Summ(i);
  imx:=i;
 end;
write('Максимальное отношение имеет число ',imx,' сумма цифр=',Summ(imx),' отношение=',ot:0:2);
readln
end.
Добавлено через 1 минуту
Если бы искать наименьшее отношение, или наибольшее суммы цифр к числу, то имело бы смысл
1
0 / 0 / 0
Регистрация: 03.06.2010
Сообщений: 4
21.06.2010, 12:38  [ТС] 5
спасибо огромное
0
21.06.2010, 12:38
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.06.2010, 12:38
Помогаю со студенческими работами здесь

Найти наибольшее из трёх чисел
Найти наибольшее из трёх чисел АВС.

Найти наибольшее число в последовательности
Дана непустая последовательность целых чисел, оканчивающаяся нулём. Необходимо найти наибольшее...

Найти наибольшее значение функции
Всем привет! уважаемые, не могу разобраться с такой простой вещью, как поиск наибольшего.Стыдно,...

Найти наибольшее число в файле
Здравствуйте. Не могли бы помочь с задачей: Дан текстовый файл. Точно известно, что в файле...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
Как объединить два словаря одним выражением в Python
InfoMaster 19.01.2025
В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .
Как без исключения проверить существование файла в Python
InfoMaster 19.01.2025
При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru