// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
2) 640х480х2=614400 байт
614400 / 1024 / 1024 = 0,5859375 мбайт
Для перевода целого десятичного числа в двоичную систему счисления нужно последовательно выполнять деление данного числа и получаемых целых частных на 2 до тех пор, пока не получим частное, равное нулю
Int main()
{
double n, m, s;
setlocale (LC_ALL, "rus_rus.1251");
m=0;
n=1;
do
{
s=cos(n)/sqrt((2*n*n-1)*(n*n+1));
m+=s;
n++;
}
while (n<41);
cout << "Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = "<< m;
return 0;
}
Результат:
<span>Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = 0.234638</span>