Var
a,b,x1,x2:real;
begin
Read(a);readln(b);
if (a*b>0) and( b<>0) then writeln(-2*sqrt(b),' ',2*sqrt(b),' ','0'); else writeln('0');
end.
Флеш-накопитель<span> </span><span>компакт-диск </span>жесткий диск
Первое задание
VARx, y : real;
BEGIN
readln(x);
if x <= -1 then y:= -1/(x*x*x)else if x <= 2 then y:= x*x else y:=-4;
writeln(y:0:8)
END.
дальше еще скину
Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
<span>end.
значения выводить можно через отдельный цикл
</span>var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.