Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
<span>Двоичный код:<span>000011100010111100101111000101000000111000101100000110010000111000101111
0001111000001110001011100010110000001110001011100001111000001110001011100
0011101000011100010111000101110000011100010111000011011000101000000111000
1011100010000100001110001011100010000000010100000011100010111000011100000
0111000101111000110010000111000101111000111000000111000101110001011110000
1110001011100010111100001110001011110010101100010100000110100001010000001
11000101110000111010001010000011011</span></span>
Ответ:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int N = 45;
for (int i = 0; i < N; i++)
{
Console.WriteLine("Я молодец!");
}
}
}
}
Объяснение:
Основной код вот:
int N = 45; // Кол-во раз
for (int i = 0; i < N; i++)
{
Console.WriteLine("Я молодец!");
}
