Fake fan of sales

 big_love_to_halyava@ukr.net

Collatz solution's Draft (Project Euler №14)

program Hello;

var n: Int64;

   maxsteps, steps : smallint;

begin

  writeln ('Hello World');

  //steps := 1;

  n := 0;

  maxsteps := 0;

  for n := 2 to 13 do

  begin

    steps := 1;

    while (n <> 1) do

    begin

      if odd(n) then n:= 3*n+1

      else n:= trunc(n/2);

      inc(steps);

    end;

    if steps > maxsteps then maxsteps := steps;

  end;

  writeln(maxsteps);

end.

100325-1603

 синупрет аналоги

Заряд. Зуб, окуляри.

Пластівці , перекус 

Трамвай пумб, моно магаз

овочі, каша

Курси? 

🌽+ 🦀= Салат 🥗 

Блакитний будильник, червоний будильник.

Брелок?

Фото від 1402

Бойлер, балкон

Борщ?

DELPHI Санніков, Вальвачов. Ейлер №139.

зАмок

Київстар. Корисне

 *111# стан рахунку 

*112# залишок хвилин, смс

466 гаряча лінія 

План №2050

 1. Передплата в Укрпошта 

Киевстар +101-105 не +100

172й спец.

Зоунб email??

Losos mixes

Венера+ борт

Вок

ХотРолл + 2 сплата

Мини комбо + pizza

A rough draft of 10001st Prime

 {

2,3,5,7,11,13...

13 is the 6th.

What is the 10001st 

prime number?

Answer: .

}

program Prime10001st;

uses math;

var num, sqrnum, max64:Int64;

    i, k, cnt : integer;

const rng = 10000;

begin

  i := 0; k := 0;

  max64 := Trunc(Power(2,63) - 1);

  while (i < 7) do

  begin

    for num:= 2 to max64 do

    begin

      cnt := 0;

      sqrnum:= Trunc(sqrt(num));

      for k:=2 to sqrnum do

      begin

        if (num%k = 0) then

        begin

          cnt := cnt + 1;

          //????

        end;

      end;

    end;

   //??? i := i + 1;

  end;

end.