Грунтовая дорога проходит последовательно через населенные пункты А, B, С и D. При этом длина дороги между А и C равна 80 км, между В и С – 50 км, и между C и D – 25 км. Между B и D построили новое асфальтовое шоссе длиной 40 км.Оцените минимально возможное время движения велосипедиста из пункта А в пункт В, если его скорость по грунтовой дороге – 30 км/час, по шоссе – 40 км/час. Укажите маршрут, по которому возможно движение за минимальное время. Создайте табличную, графическую и математическую модель задачи.
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
Тестовое решение:
Порядковый номер "красивого" числа: 15
Красивое число равно 20