И где вопрос???????????????????
<span> </span>\
1.Едет из А в В по грунтовой дороге
затратит 4 часа
2.Едет сначала из А в С,потом из С в В.
Из А в С дорога по шоссе,40 км со скоростью 40 км/ч.
<u>затраченное время 1 час</u>
далее из С едет в В по грунтовой дороге,скорость 20 км/ч,расстояние от С до В равно 50 км
<u>затраченное время 2.5 часа</u>
<em>Итого:</em>1 час+2.5 часа=3.5 часа,это время будет минимальным для него.
<em><u>Ответ:3.5 часа минимальное время на путь из А в В.</u></em>
128 символьный алфавит требует минимум 7 бит на символ. 40*50*3*7=42000 бит = 5250 байт
Не откажусь от спасибо и звездочек на ответ xD
var a,b,c:integer;
begin
writeln('Введите три разных числа');
readln(a,b,c);
if (a>b)and(a>c) then writeln(a,' ','найбольшее');
if (b>a)and(b>c) then writeln(b,' ','найбольшее');
if (c>a)and(c>b) then writeln(c,' ','найбольшее') else
writeln('Пожалуйста, введите три разных числа');
readln;
end.