Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. требования к подпрограмме: процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. второй - результат работы подпрограммы. (паскаль абц (pascal abc))

Procedure search(n: integer; var mineven: integer);
begin
  mineven := 10;
  while n > 0 do
  begin
    var last := n mod 10;
    if (last mod 2 = 0) and (last < mineven) then
      mineven := last;
    n := n div 10;
  end;
  if mineven = 10 then
    mineven := -1;
end;

Program prog;
function Search(n: integer): integer;
var
  input: array[1..4] of integer;
  even: array[1..4] of integer;
  atLestOne: boolean;
begin
  input[1] := n div 1000;
  input[2] := n mod 1000 div 100;
  input[3] := n mod 100 div 10;
  input[4] := n mod 10;
  if (input[1] mod 2 = 0)
    begin
      even[1] := input[1];
      atLestOne := True;
    end;
  if (input[2] mod 2 = 0)
    begin
      even[2] := input[2];
      atLestOne := True;
    end;
  if (input[3] mod 2 = 0)
    begin
      even[3] := input[3];
      atLestOne := True;
    end;   
  if (input[4] mod 2 = 0)
    begin
      even[4] := input[4];
      atLestOne := True;
    end;
  if atLestOne = True then
    Search := Low(even)
  else
    Search := -1;
end;

WWW - World Wide Web - Всемирная паутина или Паутина (Web - веб), не путать с Интернет. Эти понятия действительно часто путают, потому что они неразрывно связаны между собой с точки зрения обычного пользователя

В то время как Интернет - это именно связь сама по себе, ее физические составляющие, обеспечение связи, то Всемирная паутина - это есть наполнение/содержание этой связи.

Всемирная паутина - это система документообмена. В качестве документов обычно выступают гипертекстовые документы так же называемые веб-страницами сгруппированные по веб-сайтам, которые находятся на веб-серверах. Для просмотра веб-страниц используется приложение веб-браузер. Для обмена используется протокол HTTP (англ. HyperText Transfer Protocol — «протокол передачи гипертекста»)  

Назначение? Обмен цифровой информацией наверно)

Для простого понимания:  

- соц.сети, форумы, новостные сайты - это все WWW.  

- Icq, Skype, Viber, Whatsapp, Telegram, почтовые клиенты и т.п. используют другие протоколы и по сути не являются частью Паутины, хотя используют Интернет

{общий член последовательности можно  задать формулой   Sn=((An-1)+(Bn-1))/(An-1)  где A- числитель,  В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
   A:=1;  B:=1;
{ вывод последовательности на экран  }
   for i:=2 to n do
      begin
          C:=A;     A:=A+B;       B:=C; 
          writeln(i,'  ->  ',A,'/',B);
      end;
{ подсчет k - го члена  }
    k:=20;  A:=1;  B:=1;
    for i:=2 to k do 
       begin   
          C:=A;       A:=A+B;       B:=C;
       end; 
    writeln(k,' - ый элемент = ',A,'/',B); 
 end.