решение программы методом перебора

[krepsh]

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

program zadacha;
var
  i: integer;
  max, x: real;
begin
  min := 1 / 10000;
  for i := 1001 to 9999 do begin
    x := (i * 10 + i * 10 * 10 + i * 100 * 10 + i * 1000 * 10 + i) / i;
    if x > min then min := x;
  end;
  WriteLn('минимум = ', min);  
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
Примерно так, а дальше что то не очень получается.

[krepsh]

спасибо буду знать на будущее

[Serge_Bliznykov]

"Найти минимальное отношение "

WriteLn('Максимум = ', mix);

никаких подозрений в правильности решения не возникает?

Да и вообще, это решение НЕ ВАШЕЙ задачи!
писать решение не хочу, ибо от предложенного оно будет отличаться всего парой-тройкой строк ( ну и другим сообщением, переменную другую взять - не max, а min). И когда будете делить на произведение - не забудьте проверить, что оно (произведение) может быть и равно нулю, а на ноль делить нельзя...

[krepsh]

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

сам я не очень разбираюсь в программировании. Здесь не зубрить надо а понимать.
закончу курс и переведусь на другое отделение. Не знал что так тяжело будет. Сказали перед поступление что главное математику знать надо вот и повелся потому что матем знаю, Но оказалось этого мало. Если есть возможность а главное время посмотри что можно сделать, а я тоже сидеть сложа руки не буду.

я знаю что задача на пару строк и стыдно обращаться с ней сюда но выходов не особо много...

program zadacha;
var
  i: integer;
  min, x: real;
begin
  min := 1 / 10000;
  for i := 10001 to 9999 do begin
    x := (i * 10 + i * 10 * 10 + i * 100 * 10 + i * 1000) * i;
    if x > min then min := x;
  end;
  WriteLn('Минимум = ', min);  
end.

Прошу прощение за мою не корректность, первый раз на этом форуме...


форум - не чат. Не надо постить много небольших сообщений подряд. Есть что добавить - нажимайте на своём крайнем сообщении кнопку "Правка" и изменяйте/дописывайте/удаляйте лишнее...

модератор.

[Serge_Bliznykov]

нет, у Вас неправильное решение. если переименовать переменную - от этого смысл её НЕ ИЗМЕНИТСЯ!
Вы по прежнему ищите МАКСИМУМ. а надо минимум. Это раз.

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


Вы поймите, мне НЕ СЛОЖНО написать решение. Но даст ли Вам это что-нибудь?!
Если Вы ничего не понимаете в той программе, которую Вы взяли за основу. То точно так же Вы не будете ничего понимать в решении, которое Вам кто-то напишет!!

[krepsh]

да мне просто сдать эту задачу и все учебный год заканчивается и я закончил слава богу с программированием. А если не сложно то напиши пожалуйста.

[krepsh]

а если так как я отредактировал

program zadacha;
var
  i: integer;
  min, x: real;
begin
  min := 1 / 10000;
  for i := 10001 to 9999 do begin
    x := (i * 10 + i * 10 * 10 + i * 100 * 10 + i * 1000) * i;
    if x > min then min := x;
  end;
  WriteLn('Минимум = ', min);  
end.

[New man]

program vvm;
var a,n,sum:integer;
      min :real;
begin
   repeat
   readln(a);
   until (a<99999)and(a>10000);
   sum:=(a mod 10 + a div 10 mod 10 + a div 100 mod 10 + a div 1000 mod 10+ a div 10000);
   writeln(sum / (a mod 10)/(a div 10000))  ;
readln;
end.

это по твоему условию
если ты имел вввиду
наименьшее отношение от 10000 до 99999999 тло

program MoskZohavanKtulhu;
var
  i,n: integer;
  min, x: real;
begin
  max := 1 / 1000;
  for i := 10000 to 99999 do begin
    n:=(i mod 10)*(i div 10000);
    if n<>0 then
           x := (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000 mod 10+i div 10000) / n else
        continue;
    if x < min then min := x;
  end;
  WriteLn('Минимум = ', mix);  
end.

[krepsh]

щас проверю и заранее спасибо.

[Serge_Bliznykov]

не хотите, значит учиться...
содрать бы с Вас деньги, чтобы стимул учиться появился!

вот решение.

(*
дано пятизначное число.
Найти минимальное отношение суммы его цифр к произведению первой и последней цифре *)

program Ameba;
var
  i, iMin : longint;
  sum, proiz : integer;
  min : real;
begin
  iMin := -1;
  min := 99999;
  for i := 10000 to 99999 do begin
    sum := (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000 mod 10 + i div 10000) ;
    proiz := (i mod 10) * (i div 10000);
    if proiz<>0 then
      if  (sum / proiz) < min then begin
         iMin := i;
         min := (sum / proiz);
      end;
    { if x > max then max := x;}
  end;
  WriteLn('Минимальное отношение = ', min:12:6,' при числе ',iMin);
  readln;
end.

комментировать не буду. ибо такую элементарщину и комментировать нечего.
Да и не хочется лентяям помогать...(я вообще не уверен, что правильно делаю, выкладывая решение! )