Это медсестра.В повер поинт попробуйте нарисовать,любая версия вот пример.
I=K*i
I=8*24=192 бита=24 байта
Ответ: 24 байта
//PascalABC.NET 3.1 сборка 1239
uses System;
begin
var m := ReadInteger('Введите номер месяца =>');
var d := new DateTime(DateTime.Now.Year, m, 1);
var k := 0;
repeat
if d.Day mod 2 = 0 then k += 1;
d := d.AddDays(1);
until d.Month <> m;
writeln(k);
end.
In.txt и out.txt соотвественно
P.S. in.txt должен быть в Unicode