<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>
Текстовый числовая звуковая графическая комбинированная
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
<meta charset = "UTF 8">
<script>
var a = prompt("Введите первое число");
var b = prompt("Введите второе число");
var c = a + b;
var k = a * b;
alert("Произведение" + k);
alert("Сумма"+ c);
</script>
Кстати это HTML программа для браузера.
