В каком из условных операторов допущена ошибка?

а) if (a>b) and (b>0) then c:=a+b else c:=a-b;

б) if (a1 > a2) then max:=a1 else max:=a2;

в) if (B = 0) then Writeln('Деление на нуль невозможно');

г) if (a < b) then min:=a; else min:=b;

1. Чтобы такая работа стала возможной, нужно выполнить 3 условия:

1.1. Соединить компьютеры в сеть.

1.2. Разработать сетевой протокол.

1.3. Установить сетевое приложение.

2. Браузер - это программа, предназначенная для просмотра веб-сайтов. Она устанавливает связь с веб-сервером, загружает на компьютер страницу по заданному пользователем адресу и воспроизводит ее на экране.

3. Имя, служащее для идентификации областей, которые являются единицами административной автономии в сети Интернет, в составе вышестоящей по иерархии такой области.

Объяснение:

Удачи:)

1)
var a, b, c, i, n, j :integer;
     s :string;
begin
   read (s);
   for i:=1 to length(s) do
   begin
      if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))
      else write (s[i]);
   end;
end.
2)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   if s[1]=' ' then
   begin
      j:=j+1;
     p[j]:=1;
   end;
   for i:=2 to length(s) do
      if (s[i]=' ') and (s[i-1]<>' ') then
         begin
           j:=j+1;
           p[j]:=i;
         end;
   for i:=1 to j do
   begin
      a:=p[i];
      p[i]:=0;
      while s[a]=' ' do
      begin
         inc (p[i]);
         a:=a+1;
      end;
   end;
   b:=p[1];
   for i:=1 to j do
      if p[i]>b then b:=p[i];
   write (b);
end.
3)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   write (s[i]);
   while s[i]<>':' do
      begin
      inc (i);
      write (s[i]);
      end;
end.
4)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   while s[i]<>':' do
      inc (i);
   i:=i+1;
   while (s[i]<>':') and (i<=length(s)) do
      begin
      write (s[i]);
      inc (i);
      end;
end.