Локальная сеть, все компьютеры в которой равноправны, - это:
1) региональная сеть
2) сеть с выделенным сервером
3) Интернет
4) одноранговая сеть
3.Дан фрагмент электронной таблицы:
A B C D
1 110 25 =A1+B1
2 45 55 =A2+B2
3 120 60 =A3+B3
Определите значение в ячейке D2 после копирования в неё формулы из ячейки С2.
1) 180
2) 240
3) 155
4) 150

4. Сколькими можно рассадить в ряд на три стула трёх учеников (А, В, С)? (для решения воспользоваться графом)
1) 5
2) 7
3) 8
4) 6
5. В ячейку Е4 введена формула =С2*D2. Формулу скопировали в ячейку F4. Какая формула будет записана в ячейке F4?
1) =D3*E3
2) =C2*E3
3) =D3*E4
4) =C3*E4

р в квадрате так

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.