Составить программу которая находит наибольшее значение отношения трехзначного числа к сумме его цифр.

143

214

Посмотреть ответы 2

Ответы на вопрос:

Илья01673

Другие предметы

4,5(46 оценок)

var
imax,s,i:integer;
max:real;
begin
for i:=100 to 999 do
begin
s:=i mod 10+i div 100+(i div 10)mod 10;
if i/s>max then begin
max:=i/s;
imax:=i;
end;
end;
writeln('chislo=',imax,' max otnoshenie=',max:5:3);
readln;
end.

nataliamoroz830

Другие предметы

4,5(2 оценок)

Дневник по прохождению производственной практики: Дата (число, месяц) Содержание выполненной работы, выводы и предложенияПодпись руководителя практики22.12.101.Предварительное обучение ПБ. ... Для горных работ применялись каменные орудия и кайлы из оленьего рога.

Объяснение: