k:=0;
for i:= 1 to 15 do
if (A[i]=10) then k:=k+1;
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить NO
var
n, s, i, m, m1: int64;
begin
s := 0;
Read(n, m1);
for i := 1 to n - 1 do
begin
Read(m);
if m = m1 then
S := s + 1;
m := m1;
end;
if (s = n - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.
var
i,p:integer;
begin
p:=1;
for i:=7 to 12 do
p:=p*i;
writeln(p);
end.
<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>