Жумыс устелинде орналаскан жалпы суреттер ортак бумагасынан менин суретим бумагасына сурет жуктеу алгоритмин орында
163
404
Ответы на вопрос:
//1
var
y, a, b, c, d : real;
begin
readln(a, b, c, d);
y := (a/c) * (b/d) - ((a*b-c)/(c*d));
writeln(y);
end.
//2
uses math;
var
f, a, s : real;
begin
readln(a, s);
f := power(s, 2) + (a / (a+s)) * sqrt(power(s, 2) - s) - 176;
writeln(f);
end.
//3
uses math;
var
z, x, y : real;
begin
readln(x, y);
z := sqrt(abs(x-1) + y) / (1 + power(x, 2));
writeln(z);
end.
Популярно: Информатика
-
GOLDENBEACH12.04.2023 03:21
-
алиса80829.08.2021 17:58
-
adonda99414.12.2021 00:55
-
aliina00009.03.2023 13:02
-
mrkobra03.07.2020 14:09
-
ФелаБульф1203.03.2020 08:14
-
ольга164607.11.2021 02:19
-
Obzzzi05.02.2021 03:51
-
денил5505.05.2020 18:42
-
Thefirstthing22.05.2022 19:39