var
rez, temp : real;
i, max : integer;
begin
max:=0;
temp:=0;
for i:=100 to 999 do begin
sum := (i div 100) + (i - (i div 100) * 100) div 10 + i mod 10;
rez:=i/sum ;
if rez>temp then begin
temp:=rez;
max:=i;
end;
end;
WriteLn(max);
end;
Задача: Наибольшее значение отношения 3 значного значащего числа к сумме его цифр.
Составить программу которая находит наибольшее значение отношения 3 значного значащего числа к сумме его цифр.
var
rez,temp:real;
ch,i:word;
Sum,j,er,max:byte;
s:string;
begin
rez:=0;
temp:=0;
for i:=100 to 999 do begin
str(i,s);
sum:=0;
for j:=1 to 3 do
sum:=sum+val(s[j],ch,er);
rez:=i/sum
if rez>temp then begin
temp:=rez;
max:=i;
end;
end;
writeln(i);
end;
rez,temp:real;
ch,i:word;
Sum,j,er,max:byte;
s:string;
begin
rez:=0;
temp:=0;
for i:=100 to 999 do begin
str(i,s);
sum:=0;
for j:=1 to 3 do
sum:=sum+val(s[j],ch,er);
rez:=i/sum
if rez>temp then begin
temp:=rez;
max:=i;
end;
end;
writeln(i);
end;