Яна
6 год назад
Задание 1Pascal ABC
ОТВЕТЫ
Ценка
Oct 24, 2020
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.
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.
680
