//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
Var
<span> d1, v1: integer; </span>
<span> d2, p2, v2, w: integer; </span>
t1, t2: real;
<span>begin </span>
<span> readln(d1,v1); </span>
<span> readln(d2,p2,v2,w); </span>
<span> t1:= d1 / v1; </span>
t2:= (d2 - p2) / v2 + (p2 / w);
<span> if (t1 < t2) then </span>
<span> write('1') </span>
<span> else if (t2 < t1) then </span>
<span> write('2') </span>
<span> else </span>
write('0');
<span>end.</span>
Экспертаня система - компьютерная система, способная частично заменить специалиста-эксперта в разрешении проблемной ситуации.
сюда подходят
1) система управления траспортом
2) система моделирования зданий
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
Рассмотрим возможные варианты кода:
11222 кол. для каждого случая =5!/(2!*3!) =5*4/2=10
11333 всего: 10*3 =30
11444
------------------------------------
11223 5!/(2!*2!*1!) = 5*4*3/2=30
11224 всего: 30*6 =180
11332
11334
11442
11443
-----------------------------------------
11234 5! / (2!1!1!1!) = 5*4*3=60
------------------------------------------------------------------------
Итого: 180+30+60 = 270