1.
const
quantity = 18;
var
res, d: integer;
function sum(a, b: integer): integer;
begin
sum := a + b;
end;
begin
writeln('Введите число D: ');
readln(d);
res := sum(d, quantity);
writeln(res);
end.
2.
const
x = 1.0;
var
square, radius, Pi_num: real;
function ArcTan(X: Real): Real;
begin
ArcTan := (sin(x) / cos(x));
end;
function ray(square: real): real;
begin
ray := sqrt(square / Pi_num);
end;
begin
Pi_num := ArcTan(x) * 2;
writeln('Введите площадь окружности: ');
readln(square);
radius := ray(square);
writeln(radius);
end.
Цикл с предусловием проверяет условие перед циклом и если условие не будет выполнено, то и цикл не выполняется
В цикле с постусловием, условие проверяется после, т.е в этом случае тело цикла выполняется хотя бы 1 раз