Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
<span> Линейным называется алгоритм, в котором все этапы решения задачи выполняются строго последовательно.</span>
Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
Program gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.
Уже собранный
+ не надо париться на счет совместимости деталей
- при любом повреждении нужно нести в СЦ, т.к. на задней крышке стоит пломба
Самосборный
+ сам подбираешь детали по мощности, не нужно нести комп в СЦ по любому пустяку, при поломке достаточно отнести то что сломалось
- достаточно трудно подобрать совместимые компоненты
P.S. на мой взгляд лучше собирать самому