1. var n, p, q, mul:Integer;
begin
readln(n);
readln(p);
readln(q);
mul:=n*p*q;
writeln(mul);
end.
2.
var x, y:Real;
x:=-1.9;
y:=(-x*sqr(x+1))/(2-x*sqr(x-1));
writeln(y);
Программа выдаёт ответ ~8,56
1. var n, p, q, mul:Integer;
begin
readln(n);
readln(p);
readln(q);
mul:=n*p*q;
writeln(mul);
end.
2.
var x, y:Real;
begin
x:=-1.9;
y:=(-x*sqr(x+1))/(2-x*sqr(x-1));
writeln(y);
end.
Программа выдаёт ответ ~8,56