1) Pascal:var a,b,u,S:integer;
<span>begin //ВВедите стороны параллелограмма "ab" и угол Альфа
</span><span>readln(a,b,u);
</span><span>S:=a*b*Sin(u);
</span><span>writeln("Площадь параллелограмма равна: ",S);
</span><span>readln;
</span><span>end.</span>
2)117 в двоичной = 1110101 (см. приложение)
Сервер-пользователь
Книга-человек
Будильник-человек
<span>PYTHON
x = <span>13
</span>for n in range(1,x+1):
----size = 0.5*n+<span>4
</span>----print("x("+ str(n)+") = 1/2 * "+str(n)+" + 4 = "+str(size))
print("=====================================================")
x = <span>10
</span>result=<span>0
</span>for i in range(1,x+1):
----suma = 2*pow(i,2)-<span>7
</span>----result += suma
----print("x("+ str(i)+") = 2 * "+str(i)+"^2 -7 = "+str(suma))
print("Suma = "+str(result))
Там де 4 полуси - ето чотири пробели</span>
Вычтем из 10100 00001 столбиком по правилам сложения в двоичной системе. Получим 10011
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125