напишите программу , которая получает с клавиатуры номер месяца и определяет , сколько дней в этом месяце. При вводе неверного номера месяца …

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

А) Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
10011111101112 = 212*1 + 211*0 + 210*0 + 29*1 + 28*1 + 27*1 + 26*1 + 25*1 + 24*1 + 23*0 + 22*1 + 21*1 + 20*1 = 4096 + 0 + 0 + 512 + 256 + 128 + 64 + 32 + 16 + 0 + 4 + 2 + 1 = 5111
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
0112 = 2-1*0 + 2-2*1 + 2-3*1 = 0.375
В итоге получаем число 5111.375
ответ: 1001111110111.0112=5111.375

б) 11101010112 = 29*1 + 28*1 + 27*1 + 26*0 + 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 512 + 256 + 128 + 0 + 32 + 0 + 8 + 0 + 2 + 1 = 939
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
10111012 = 2-1*1 + 2-2*0 + 2-3*1 + 2-4*1 + 2-5*1 + 2-6*0 + 2-7*1 = 0.7265625
В итоге получаем число 939.7265625
ответ: 1110101011.10111012=939.7265625