Визначте, вміст скількох книжок можна зберегти в електронному вигляді на DVD-диску обсягом 4,7 Гбайта.​

Program Resheto;

const n=954530;

var i,j,last,k:integer;

   b:array[1..n] of boolean;

begin

 for j:=1 to n do b[j]:=true; ///сначала все числа не вычеркнуты

 b[1]:=false; ///единицу вычеркиваем сразу

 i:=2;k:=0; ///k - количество найденных простых чисел

 while i*i<=n do

 begin

   for j:=i+1 to n do  

   begin

     if (b[j]) then ///если число уже вычеркнуто,то ничего не делаем

     begin

       if (j mod i=0) then begin last:=j; b[j]:=false; end; ///если число делится,то запоминаем его в last и вычеркиваем из решета

     end;  

   end;

   inc(i);

 end;

 for j:=2 to n do if b[j] then inc(k); ///считаем количество

 writeln; writeln('Последнее вычеркнутое: ',last);writeln('Найдено простых чисел: ',k);

 for j:=2 to n do if b[j] then write(j,' '); ///выводим все простые числа через пробел

end.

using System;

using System.Collections.Generic;

namespace App {

   internal class Program {

       private static void Main() {

           Console.Write("Сколько элементов будем вводить? n = ");

           var n = Convert.ToInt32(Console.ReadLine());

           var a = new List<int>();

           for (var i = 0; i < n; i++) {

               Console.Write("Элемент номер {0} = ", i);

               a.Add(Convert.ToInt32(Console.ReadLine()));

           }

           Console.WriteLine("Среднеарифметическое = {0}", Average(a));

           Console.ReadKey();

       }

       public static double Average(List<int> a) {

           var sum = 0.0;

           foreach (var t in a) {

               sum += t;

           }

           return sum / a.Count;

       }

   }

}