информатикой на узб яз 3. Axborot xavfsizligi va “elektron jinoyatchilik”lardan himoyalanishni ta’minlovchi chora-tadbirlar to‘g‘risida ma’lumot bering.

2. 28800 bit/s tezlikda ishlovchi modem ikkita sahifadan 3600 bayt iborat matnni qancha vaqtda uzatadi?

2. Agar ekran sohasi 512x128 nuqtali va har bir nuqta 256 rangdan biriga ega bo‘lsa, bu sohani saqlash uchun kerak bo‘ladigan eng kam xotira hajmi (Kb)ni belgilang.
​

//Мне скучно, потому я пишу сомнительный код по примеру Эникея
//PascalABC.NET 3.2 сборка 1318

Var
  s,t,snew,curr,add,currsave:string;
  i,j,flag:integer;
begin
readln(s);
readln(t);
//s=lowcase(s);
t:=lowercase(t);
 while pos(' ',s)<>0 do
  begin
  flag:=0;
    curr:=copy(s,1,pos(' ',s));
    currsave:=curr;
    if pos(t,lowercase(curr))<>0 then
      begin
        flag:=1;
        delete(curr,pos(t,lowercase(curr)),length(t));
        for j:=1 to length(curr) do
        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then
          flag:=0;
     end;
  if flag=1 then snew+=curr else snew+=currsave;
  delete(s,1,pos(' ',s));
  end;
curr:=s;
currsave:=curr;
flag:=0;
if pos(t,lowercase(curr))<>0 then
      begin
        flag:=1;
        delete(curr,pos(t,lowercase(curr)),length(t));
        for j:=1 to length(curr) do
        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then
          flag:=0;
     end;
if flag=1 then
 snew+=curr
 else
 snew+=currsave;
writeln(snew);
end.

Пример ввода:
Который из всех котов кот съел мясо
Пример вывода:
Который из всех котов  съел мясо

Const m=5; n=6;
var 
a:array[1..m,1..n] of integer;
b:array[1..m] of integer;
i,j,min:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to m do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
writeln('Полученный массив:');
for i:=1 to m do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
  44  30  35  16  47   3
  30  15  23  40  15  46
  46  11   2   3  16  40
  19  17   8  22  10  25
  41  23   9  47   7  36
Полученный массив:
   3  15   2   8   7