Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
pascal_ ABC
0 / 0 / 0
Регистрация: 21.09.2012
Сообщений: 74
#1

Найти наибольшее значение отношения трехзначного числа к сумме его цифр - Delphi

24.05.2013, 09:59. Просмотров 427. Ответов 1
Метки нет (Все метки)

Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр.
http://www.cyberforum.ru/delphi-beginners/thread81835.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2013, 09:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти наибольшее значение отношения трехзначного числа к сумме его цифр (Delphi):

Целой переменной x присвойте значение суммы цифр заданного трехзначного числа
Целой переменной x присвойте значение суммы цифр заданного трехзначного числа.

Найти сумму цифр заданного трехзначного числа
найти сумму цифр заданного трехзначного числа

Найти сумму цифр заданного трехзначного числа
procedure TForm1.Button1Click(Sender: TObject); var num,sum:integer;p:integer;...

Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.
Вывести на экран 1 или 0 в зависимости от того, равна ли сумма двух первых цифр...

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме...

1
Waddonator
962 / 638 / 96
Регистрация: 01.11.2012
Сообщений: 1,447
24.05.2013, 11:17 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
    max,i:integer;
begin
   max:=100;
   for i:=101 to 999 do
      begin
         if max/(Trunc(max/100)+Trunc(max/10)-Trunc(max/100)*10+max-Trunc(max/10)*10) <
            i/(Trunc(i/100) +Trunc(i/10)-Trunc(i/100)*10 + i-Trunc(i/10)*10) then max:=i;
      end;
   WriteLn('Chislo - ' + IntToStr(max));
   ReadLn;
end.
Правильным ответом будет любое число с двумя нулями: 100, 200, ..., 900, т.к. упомянутое отношение будет равняться 100 (пример 300/(3+0+0)=100). Ответом в программе будет число 100, т.к. оно первым встречается.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2013, 11:17
Привет! Вот еще темы с решениями:

Найти число, полученное при прочтении цифр трехзначного числа справа налево
Дано трехзначное число. найти число полученное при прочтении его цифр справа...

Найти число, полученное при прочтении цифр данного трехзначного числа справа налево
2.Дано трехзначное число. найти число полученное при прочтении его цифр справа...

Найти все трёхзначные числа, равные сумме кубов своих цифр
Найти все трёхзначные числа, равные сумме кубов своих цифр.

Сумма цифр трехзначного числа
Помогите пожалуйста решить задачу Целой переменной S присвоить сумму цифр...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru