ответьте на во Как ты думаешь, для чего необходимо организовывать ссылки в документе (сноски)? 2. Какие есть отличия в функциях команд Вставить ссылку и Вставить концевую ссылку? 3. Для каких целей используются Ссылки и списки литературы? 4.Как бы ты объяснил отличие функций команд Вставить концевую ссылку и Ссылки и списки литературы?

1.ссылки в документе нужны для того что бы переходить на нужный сайт

2. концевая половина ссылки

вставить полностью вся ссылка

3.ссылки нужны для целей что бы прочитать электронную книгу или переход на нужный сайт

4.концевая это ее конец

ссылки из литературы это связанное с ссылками на определённый сайт книг

1)

 

var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.

 

2)

 

var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.

 

Var 
mas: array[1..7] of integer;
k, i, MAX:integer;

Begin
for i:=1 to 7 do
  Begin
  writeln('Введите число');
  readln(mas[i]); 
  end;

MAX:=mas[1];
k:=1;
for i:=2 to 7 do
  Begin
    if mas[i] > MAX   
       then      
          Begin       
               MAX:=mas[i];       
                k:=1;     
          end   
       else        
            if MAX=mas[i]          
                 then k:=k+1;
  end;

writeln();
writeln('Максимальное значение = ', MAX);
writeln('Количество элементов = ', k);

readln();
end.