Заполните пропуски в тексте:
Сети, которые подключаются к Интернету, используют для соединения протоколы:

...— транспортный протокол;

... — протокол маршрутизации.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

a)a2+b4 (нет знака"=")

ж)=12а-в4 (не 12а,а должно быть а12) 

з)а123+о1   (нет знака"=")

1.

program num1; uses crt; var a : array [1..100] of integer; i,k,n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do  readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=',s); end.

2.

program num2; uses crt; var a : array [1..100] of real; i,n,j : integer; x : array [1..100] of real; begin clrscr; write('n='); readln(n); for i: =1 to n do  readln(a[i]); j: =1; for i: =1 to n do if a[i]=0 then begin x[j]: =i; j: =j+1 end; for i: =1 to j-1 do write(x[i],' '); end.

3.

program num3; uses crt; var a : array [1..100] of real; i,n : integer; begin clrscr; write('n='); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do begin if a[i]< > 0 then if a[i]> 0 then begin writeln('положительное встречается раньше'); break end else begin writeln('отрицательное встречается раньше'); break end; end; end.

4.

program num4; uses crt; var a : array [1..100] of real; i, n, j : integer; begin clrscr; write('n='); readln(n); a[n+1]: =a[n]+1; for i: =1 to n do readln(a[i]); j: =0; i: =1; while i< n do begin if a[i]< a[i+1] then begin j: =j+1; i: =i+1 end else begin writeln('последовательность невозрастающая'); break end; end;

if i=n then writeln('последовательность возрастающая'); end.

var a,b,c,nchet,nnechet: integer;

begin

  nchet: =0;

  nnechet: =0;

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

  readln(a,b,c);

  if a mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1;

  if b mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1;

  if c mod 2=0 then nchet: =nchet+1 else nnechet: =nnechet+1;

  writeln('количество четных чисел равно ',nchet,', количетсво нечетных равно ',nnechet);

end.