Сколько раз можно менять диаграмму ? 2
10
сколько угодно
5
16

Назначение диаграмм :
Для красоты на экране
Определение наибольшего результата
Определение пересечений функции
Определение наименьшего результата
Облегчение сравнений, выявление закономерностей

Как добавить значения в диаграмму ?
правый щелчок на выделенных ячейках
через меню Вставка
правый щелчок на диаграмме
правый щелчок на панели инструментов
через меню Сервис

Как изменить размеры диаграммы ?
выделить, навести внутрь и при нажатой левой
выделить, навести на маркер и при нажатой левой кнопке мыши
выделить, SHIFT + стрелки
выделить, правый щелчок - Автоформат
выделить, навести на линию и при нажатой правой

Как построить диаграмму ?
вызвать и ввести слово " диаграмма "
выделить ячейки, и через меню Сервис
выделить ячейки, и через меню Формат
выделить ячейки, и через меню Таблица
выделить ячейки, и через меню Вставка

Как узнать, что диаграмма выделена ?
обведена пунктиром
маркеры по бокам диаграммы
диаграмма выделена темным цветом
никак
диаграмма меняет цвет

Как передвинуть диаграмму ?
выделить, навести внутрь и при нажатой левой кнопке мыши
выделить, SHIFT + стрелки
удалить и создать в новом месте
скопировать в буфер и вставить в новом месте
выделить и при нажатой правой кнопке мыши

Диаграмма – это ...
График функции
Средство наглядного представления данных.
Картинка
Средство большого представления данных
Средство небольшого представления данных

Через какой пункт меню можно вносить изменения в диаграмму ?
Вставка
Правка
Формат
Конструктор
Файл

Сколько ячеек можно выделять при построении диаграммы ?
от 1 до 5
от 1 до 10
от 1 до 100
сколько угодно
от 1 до 255

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
  Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
  if n<4 then res:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var k:=0;
  var prime:boolean;
  foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
  Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

1 задача. Если есть ошибка или можно подругому сделать напишите. 
  class Program   
 {        
class Skier        
{            
public const float procent = 0.12f;           
public float distance = 7f;            
public float multiplication;            
public float alldistance;            
public float totalmileage = 7f;

public float Mileage(int day)          
  {                if (day == 1)                   
 {                        return alldistance = distance ;                    } 
  else if (day >= 2 )               
 {                    for (int i = 2; i <= day; i++)                 
   {                        
multiplication = distance * procent;                       
 alldistance = distance + multiplication;                      
  distance = alldistance;                   
 }    
    }
                return alldistance;                        
   }
 public float TotalPath(int days)            
 {                if (days == 1)               
 {                    return totalmileage = distance;                }
                else if (days >= 2)                
{                    for (int i = 2; i <= days; i++)                   
 {                        
multiplication = distance * procent;                        
alldistance = distance + multiplication;                     
   distance = alldistance;                        
totalmileage += alldistance;               
 }               
 }                
return totalmileage;          
  }
  }
 static void Main(string[] args)      
  {            
Skier skier = new Skier();
Console.WriteLine("Пробег лыжника за n дней тренировок, введите n: ");            skier.Mileage(Convert.ToInt32(Console.ReadLine()));            Console.WriteLine("Пробег: "+ skier.alldistance);
 Console.WriteLine("Суммарный путь за m дней, введите m: ");            skier.TotalPath(Convert.ToInt32(Console.ReadLine()));            Console.WriteLine("Суммарный путь: " + skier.totalmileage);
     Console.ReadLine();      
  }    }

Задача 2. Решил ее так как я сам понял..

class Students    {      
 List<int> numbers = new List<int>();       
public int countstudents;       
public int maxCount;        
public int minCount;        
public void clas(int n)       
 {          
  for (int i = 1; i <= n; i++)           
 {                   
Console.WriteLine("Введите кол-во учеников в классе: " );                 
countstudents = Convert.ToInt32(Console.ReadLine());                   
numbers.Add(countstudents);
}
maxCount = numbers.Max();               
minCount = numbers.Min();                
Console.WriteLine("Численность превышает на: " + (maxCount-minCount) + " ученика/ов");                  
}
 static void Main(string[] args)        {
 Students students = new Students();            
Console.WriteLine("Введите кол-во классов: ");            students.clas(Convert.ToInt32(Console.ReadLine()));           
 Console.ReadLine();
}