1. Перечислите атрибуты Web-страницы.

2. Какие форматы графических файлов используется в интернете?

3. Перечислите основные сервисы интернета. Какие возможности представляет каждый сервис?

var a:integer;

function F(a:integer):integer;

var Max,x:integer;

begin

Max:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x>Max then Max:=x;

end;

F:=Max;

end; {F}

function F1(a:integer):integer;

var Min,x:integer;

begin

Min:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x<Min then Min:=x;

end;

F1:=Min;end; {F1}

begin

Write('Введите число-');

readln(a);

Writeln('Максимальная цифра в числе: ',F(a));

Writeln('Минимальная цифра в числе: ',F1(a));

end.

Пример:

Введите число-31842

Максимальная цифра в числе: 8

Минимальная цифра в числе: 1

1.

begin

   for var i := 1 to 9 do begin

       for var j := 0 to 9 do write(i*10+j, ' ');

       writeln;

   end;

end.

2.

var

   n, s, p : integer;

begin

   write('введите число n=');

   readln(n);

   p := 1;

   while n > 0 do begin

       s += n mod 10;

       p *= n mod 10;

       n := n div 10;

   end;

   writeln('сумма ', s);

   writeln('произведение ', p)

end.

3.

var

   a : integer;

begin

   write('введите 6-и значное число: ');

   readln(a);

   if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');

end.