Костя и Саша решили заранее узнать, какую оценку в четверти по информатике

им выставит учитель. Костя в течение четверти получил три отметки, а Саша - четыре.

Пользоваться калькулятором мальчикам не хотелось, поэтому они написали

программу, которая посчитала среднее арифметическое их текущих отметок (эти

значения друзья вводили с клавиатуры) и округлила значение до ближайшего целого

числа. Воссоздайте программу, которая бы выполняла задачу решенную мальчиками.

Обязательно воспользоваться в программе стандартной функцией округления

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

var a: array[1..100] of integer;

i,s,n,m: integer;

begin

  randomize;

  read(n,m);

  for i : = 1 to 100 do

  begin

        a[i]: =random(m-n) +n;

        if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1;

  end;

  writeln(s);

end.