Путь к файлу (Например C:\file.txt)
Алгоритм это порядок слов которые ты набираешь
За месяц вирус А заполнит 1 Гб, за этот же месяц: вирус В заполнит 0,5 Гб, вирус С Гб, вирус D Гб.
1 + 0,5 + + = 2 Гб
Ответ: 2
//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.