Товарищи,говорю сразу, не школьного уровня и нужна сегодня к вечеру или завтра к утру,тому кто решит много ! вася занимается в кружке и интересуется различными свойствами чисел.недавно он изучил понятие простого числа. напомним, что натуральное число n называется простым, если n > 1 и у него есть ровно два делителя: 1 и n. особо интересными вася считает числа, которые представимы в виде произведения двух различных простых чисел. вася хочет найти количество таких чисел среди чисел от 1 до n,однако считать его вручную не хочет. поэтому он попросил вас написать для него программу,которая будет вычислять это количество. задано число п. необходимо найти количество чисел х от 1 до n, которые представимы в виде произведения двух различных простых чисел. p/s. составить блок схему к ; ))

Pascal   var    n,i,k : integer;       function prost (a : integer) : boolean;   //возвращает true если число простое var    i,b : integer;     r : boolean;   begin    r : = true;     i : = 2;     b : = a div 2;     while (i < = b) and (r) do    begin      if a mod i = 0 then      r : = false;     i : = i +1;     end;     result : = r;   end;     function chet (l : integer) : integer;   //определяет кол-во        var    i,s : integer;                         //возможных  произведений                                                    // в  числовой последовательносьти                                                   //заданной длины begin      s : = 0;     for i : = 0 to k do      s : = s +(k - i);       result : = s;       end; begin  readln (n);   k : = 0;         for i : = 2 to n do    if prost(i) then begin      k : = k +1;         //write (i,' '); // вывод простых чисел(если надо, то раскоменьтить)      end;       writeln (); writeln ('кол-во простых чисел на диапазоне = ',k);   writeln ('кол-во произведений ',k,' различных чисел : ',chet(k));       end.   вроде работает, хотя вероятно есть более эффективный алгоритм.единицу не учитывал как простое.блок схему рисовать не буду - геморойной, да и не силен я в этомпросто попытаюсь объяснить алгоритм1) мы находим все простые числа на диапазоне от 1 до n(выполняется функцией (prost), и перебором.2)  исходя из кол-ва найденных простых чисел мы можем найти кол-во их произведений. т.к все числа различны и идут в порядке увеличения.это делается с функции (chet)

1час =  60 мин разброс температуры 15, так как 27-12=15 60/15=4бит 4бит*3дня=12