решение прги на паскале

[Ribnika_90000]

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

[VKorablev]

150р и получите "решение прги на паскале"

[Ribnika_90000]

да нет в мире безкорыстных людей, а жаль....

[Asker13]

Частичное решение, остальное сами постарайтесь.

program ameba;
var
  i: integer;
  max, x: real;
begin
  max := 1 / 1000;
  for i := 1001 to 9999 do begin
    x := (i mod 10 + i div 10 mod 10 + i div 100 mod 10 + i div 1000) / i;
    if x > max then max := x;
  end;
  //WriteLn('Максимум = ', max);  
end.

[MyLastHit]

да нет в мире безкорыстных людей, а жаль....

Видимо всё-таки есть)

Asker13, программа выдает немного не то, что нужно автору Не исправляйте.
Пусть автор объявит самостоятельно одну переменную и напишет 3 строчки кода, чтобы было то что нужно.

[Ribnika_90000]

Asker13
спасибо большое выручил(а) Все что я знаю так это то что она решается методом перебора. Завтра к преподу на проверку. Спс большое еще раз.

[Ribnika_90000]

я понял завтра буду доделывать уже вместе с преподом, Начало то уже есть и спасибо большое еще раз.

[Alex11223]

Особенно доставляем program ameba

[MyLastHit]

Представил себе, что будет если автор имя программы сменить посчитает ненужным

[VKorablev]

Сообщение от Ribnika_90000

да нет в мире безкорыстных людей, а жаль....

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