Як у мові програмування Free Pascal позначають оператор присвоювання?

1)

var n,k: integer;

begin

readln(n);

if (n>0) and (n<10) then k:=1

else if (n>9) and (n<100) then k:=2

else k:=3;

write(k);

end.

2)

var a,b,c: integer;

D,x1,x2: real;

begin

readln(a,b,c);

D:=b*b-4*a*c;

if(D>0) then begin

x1:=((-1)*b+sqrt(D))/(2*a);

x2:=((-1)*b-sqrt(D))/(2*a);

write(x1,' ',x2);

end else if (D=0) then begin

x1:=(-1)*b/(2*a);

write(x1);

end else write('Нет решений');

end.

3)

var x,y: integer;

begin

readln(x,y);

if(x=0) or (y=0) then write('точка лежит на координатной оси')

else begin

if(x>0) then begin

if(y>0) then write('I')

else write('IV');

end else

if(y>0) then write('II')

else write('III');

end;

end.

1. компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт).

2. ПК, Веб-камера , Концентратор, Коммуникатор, Локальный принтер, Сетевой принтер, Сканер , Сервер.

3. В условиях реальных объектов самый правильный подход – сочетать разные среды передачи в зависимости от зон применения, расстояний и требований приложений к пропускной Выбор производится так, чтобы максимально использовать преимущества соответствующих сред и минимизировать влияние их недостатков для каждого конкретного объекта.

Объяснение: