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.
А) (a /\ (b\/c)) --> d
b) (-a\/-b) --> (c/\d)
c) (a /\ b)≈(c\/-d)
помоему так
Var
s,k:longint;
begin
s:=50;
for k := 1 to 9 do
s:=s-3;
writeln(s);
end.
Ответ s =23
В какой науке информация — это содержание, заложенное в знаковые (сигнальные) последовательности?
Кибернетика