ᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠᅠ
Var
a,b,c,s,k,x,q,f:real;
begin
write('Vvedite a,b,c: ');
readln(a,b,c);
s:=-b+c-5;
k:=-3*a;
q:=-a*3;
f:=-b+c-5;
begin
If (q<0) and (f<0) then
writeln('x','<',s/k)
else
writeln('x',' >',s/k);
end;
end.
1. 456_8=4*64+5*8+6*1=256+40+6=302
2359_16=0010001101011001
13CF_16=1001111001111_2=11717
11212_3=2*1+1*3+2*9+1*27+1*81=2+3+18+27+81=131_10=203_8=83_16
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.