1)запрещается трогать проводы,вилки
2)нельзя трогать компьютер мокрыми руками
3)нельзя включать интернет без разришения учитиля
4)если на компьютере появилось неизвесное вам окно предупредить учителя.
5)не знаю придумай сама(сам)
=)
Так как результат вычислений надо получить в десятичной системе счисления, то переведем все числа, которые нам даны, в десятичную систему счисления. Затем найдем значение выражения, как принято в математике.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Ну вот так как-то...
*(4) записано вместо выражения в пункте 4, т.к. я не могу его уместить в одну клетку. Также можно написать F вместо (4)
Var a, b, c, s: real;
begin
write('Введите a, b >>');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c = ', c);
s:=a*b/2;
writeln('s = ', s);
<span>end.</span>