Question

Решите задачи по программированию в паскаль
1) Какое число баранов на d баранов больше чем 18 баранов?
2) Дана площадь S окружности. Найти ее радиус

Answer 1

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.