Задание 1 Pascal ABC

Question

Задание 1
Pascal ABC

---

Answer 1

Var A,B,C,N,X:real;
begin
read (A,B,C);
N:=(A-B*C*C)/B*B-2.5*C;
X:=(Sqrt (Abs (N)))/A*B*C;
writeln (N);
writeln (X);
end.

Comments

Дай бог тебе здоровья ❤️