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

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.

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы