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.

Answer 2

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