===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
end.
2)
000 111 10
C O H
1) В диаграмме площади секторов относятся как 1:2:2:3
В2=С1-D1=3-1=2
C2=D1-1=2-1=1
D2=A1-B1=4-2=2
A1 должно быть =3 - = А1-1=4-1=3
ответ : 2) +А1-1
#использую язык программирования Python 3.5
a = []
m = 0
for i in range(4):
a.append(int(input())
for i in range(4):
m = m + a[i]
for i in range(4):
a[i] = a[i] * m
print(*a)
Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.
Что надо делать там вапросы ???