Вроде бы это,но ты проверь,писал на скорую руку.
#include <iostream>
using namespace std;
int main ()
{
double a, day, S;
a = 10;
S = 0;
day = 1;
for (int j = 0; S < 100; j++)
{
if (day == 1)
{
S = a;
day++;
}
else
{
a = a * 1.1;
S += a;
day++;
}
}
cout << (day-1) << endl;
return 0;
}
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
<span>X1 = [4 3 2 1 5]
</span><span>X2 = [7 6 5 4 8]
Ответ
7</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
var y:=Ln(5*x)+Sqrt(Cos(x)/x)+12*x+Sin(10*x);
Writeln('y=',y)
end.
<u>Примеры</u>
x= 1.424
y=20.3661207208549
x= 0
y=NaN - результат не является допустимым числом (логарифм 0)
V=i*x*y; i=8 (2^8=256)
X и Y =10
V=10*10*8=800бит