Информатика, опубликовано 2018-08-22 22:55:30 by Гость

Паскаль У місяці обчислити кількість парних днів

Ответ оставил Гость

//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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.