1) вычислить значение выражения a. (110011102 +56)*10012 = х10 =х2 b. (111001112 – 11000112)+7*10012= - id597146820210825 от kvaisberg 25.08.2021 08:50

Question

Информатика: 1) вычислить значение выражения a. (110011102 +56)*10012 = х10 =х2 b. (111001112 – 11000112)+7*10012= х2

kvaisberg · Accepted Answer

//PascalABC.NET 3.1 сборка 1239
uses System;
uses System.Collections;

begin
    var d := DateTime.Today;
    repeat
        d := d.AddDays(1);
    until d.DayOfWeek = DayOfWeek.Sunday;

    var Sundays := new Dictionary<integer, integer>();

    repeat
        if Sundays.ContainsKey(d.Year) then
            Sundays[d.Year] += 1
        else
            Sundays.Add(d.Year, 1);

        d := d.AddDays((-7));
    until d.Year <= 1;

    var max := Sundays.Values.Max;
    Sundays.Where(x -> x.Value = max).Println;
end.

1) вычислить значение выражения a. (110011102 +56)10012 = х10 =х2 b. (111001112 – 11000112)+710012= х2

MOGZ ответил