<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>
<span>program delehka(input,output);
var
a:Array[1..1000010] of longint;
i,n,s,ma,mi,sl:longint;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
mi:=(1 shl 30);
ma:=-(1 shl 30);
for i:=1 to n do
begin
read(a[i]);
ma:=max(ma,a[i]);
mi:=min(mi,a[i]);
end;
if ma=mi then write(0,'',n,'',0)
else
begin
for i:=1 to n do
begin
if a[i]=ma then s:=s+1;
if a[i]=mi then sl:=sl+1;
end;
writeln(s,' ',sl,' ',n-s-sl);
close(input);
close(output);
end;
end.</span>
Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>
#include<iostream>//стандартный поток ввода вывода c++#include<clocale>//нужна чтобы был русский язык#include<cmath>//нужна чтобы были функции из матем.#include<conio.h>//нужна чтобы не закрывалась консоль using namespace std;//пространство времен std
int main(){ setlocale(LC_ALL,"");//Инициализация русского float a = 1.1; //инициализация переменной a = значение float b = 0.004;//инициализация переменной b = значение float x = 0.2;//инициализация переменной x = значение float y,z; //инициализация переменных yz cout<<"a = "<<a<<"\nb = "<<b<<"\nx = "<<x<<endl;//\n - переход на новую строку , как и endl; y = (pow(sin(pow((x*x+a),2)),3))-(sqrt(x/b)); //pow(число, степень) - возведение в степень z = (x*x)/a+pow(cos(x+b),3); cout<<"\ny = "<<y<<endl; cout<<"z = "<<z<<endl; _getch();}
Это цикл который прогоняется 7 раз, в его теле обычная операция присваивания. В итоге после всех сложений ответ 42