Задание 4. Определите значение переменных а и b после выполнения фрагмента программы, приведенной ниже на одном из алгоритмических языков:

a:=1;

b:=3;

a:=b - a;

b:=2 * a;

a:=2 * b + a;

b:=b + a / 2;

writeln (b,a);

1) 910

2) 10 9

3) 73

4) 37​

1-b

2-a

3-a

4-c

5-a

Объяснение:

1. Какие задачи выполняют уровни OSI в процессе передачи данных по сети:

a) уровни выполняют одинаковые задачи, постоянно повторяя передающие сигналы по сети;

b) каждый уровень выполняет свою определенную задачу;

c) первых три уровня выполняют одинаковые задачи, последующие выполняют определенные задачи.

2. Верно ли утверждение: «Каждый уровень модели выполняет свою функции. Чем выше уровень, тем более сложную задачу он решает»:

a) верно;

b) не верно.

3. Какой уровень управляет передачей данных по сети и обеспечивает подтверждение передачи:

a) транспортный;

b) канальный;

c) сеансовый.

4. Какой уровень поддерживает взаимодействие между удаленными процессами:

А) транспортный;

b) канальный;

c) сеансовый.

5. Какой уровень управляет потоками данных, преобразует логические сетевые адреса и имена в соответствующие им физические:

a) сетевой;

b) представительский;

c) транспортный.

Вроде так)

Uses crt;
var i,j,k,n,max:integer; a:array[1..100] of integer;
procedure rmassr;
begin
    for i:=1 to n do
    a[i]:=random(10);
end;
procedure rmassy;
begin
    for i:=1 to n do
    readln(a[i]);
end;
procedure maxe;
begin
max:=a[1];
    for i:=2 to n do begin
        if a[i] > max then max:=a[i];
    end;
    writeln('max element = ', max);
end;
procedure wmass;
begin
    for i:=1 to n do
    write(a[i],' ');
    writeln;
end;
begin
clrscr;
randomize;
write('Длина массива'); readln(n);
write('1-random; 2- в ручную '); readln(k);
if k=1 then rmassr()
else rmassy();
wmass();
maxe();
readln
end.