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




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


решение вопроса

+7
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.
ответил 18 Дек, 18 от Olenka

Связанных вопросов не найдено

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

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

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