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.
1.ссылки в документе нужны для того что бы переходить на нужный сайт
2. концевая половина ссылки
вставить полностью вся ссылка
3.ссылки нужны для целей что бы прочитать электронную книгу или переход на нужный сайт
4.концевая это ее конец
ссылки из литературы это связанное с ссылками на определённый сайт книг