var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
X=int(input("введи число"))
if(x>=0):
print("y=",(x+2)**2)
else:
print("y=",x-2)
- птицы живут по отдельности, но зимой улетают в тёплые края
- рыбы в течение года перемещаются хаотично, но во время нереста собираются в косяки и перемещаются в одном направлении
отметь как лучший, пожалуйста
//PascalABC.Net
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.
Var
y, x: real;
begin
readln(x);
if (x < 0) then
y := sin(x) / cos(x)
else
if (x <= 1) then
y := exp(2)
else
y := x + cos(x);
writeln(y);
end.