kseybar
?>

Составить блок схему паскаль: var d, m, g, dm: integer; begin readln(d, m, g); if d-1=0 then begin if m-1=0 then m: =12 else m: =m-1; if (m=12) and (d=1) then g: =g-1 else g: =g; case m of 4, 6, 9, 11: dm: =30; 1, 3, 5, 7, 8, 10, 12: dm: =31; end; if (g mod 4< > 0) and (m=2) then d: =28 else if (g mod 100< > 0) and (m=2) then d: =29 else if (g mod 400=0) and (m=2) then d: =29 else d: =28; end; writeln(d, ' ', m, ' ', g); end.

Информатика

Ответы

AlekseiBunina1895

(1) A
(2) AAB
(3) AABAABC
(4) AABAABCAABAABCD
(5)
(6)
(7)
(8)


AABAABCAABAABCDEFGH
(9)






A
(10)












A

 

class Number2
    {
        String[] Str_ = new String[30];
        const string Alphabet = "";

        public void Solve()
        {

            for (int i = 0; i < 10; i++)
            {
                if (i == 0)
                {
                    Str_[i] += Alphabet[i];
                }
                else
                {
                    Str_[i] = Str_[i - 1] + Str_[i - 1] + Alphabet[i];
                }
                Console.WriteLine("({0}) {1}", i + 1, Str_[i]);
                if (Str_[i].Length >= 256)
                {
                    Console.WriteLine("{0}",Str_[i][256 - 1]);
                }
            }
        }
    }

Nadegdasb

Електронна таблиця іноді табличний процесор (англ. electronic spreadsheet — рідко електронний аркуш) — це інтерактивний, комп'ютерний застосунок для налагодження, аналізу та збереження даних у табличному форматі. Спочатку електронні таблиці дозволяли обробляти виключно двовимірні таблиці, передусім з числовими даними, але потім з'явилися продукти, які крім цього дозволяли з'єднувати кілька таблиць для спільної роботи й обробки, включати текстові, графічні й інші мультимедійні елементи. Інструментарій електронних таблиць включає різноманітні математичні функції, що дозволяють ввести складні статистичні, фінансові та інші розрахунки. Часто електронні таблиці включають вбудовану скриптову мову програмування для автоматизації типових робіт.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить блок схему паскаль: var d, m, g, dm: integer; begin readln(d, m, g); if d-1=0 then begin if m-1=0 then m: =12 else m: =m-1; if (m=12) and (d=1) then g: =g-1 else g: =g; case m of 4, 6, 9, 11: dm: =30; 1, 3, 5, 7, 8, 10, 12: dm: =31; end; if (g mod 4< > 0) and (m=2) then d: =28 else if (g mod 100< > 0) and (m=2) then d: =29 else if (g mod 400=0) and (m=2) then d: =29 else d: =28; end; writeln(d, ' ', m, ' ', g); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

aerendzhenova5
kireevatatiana
tteplovoz3789
werda84
ilukianienko458
udalova-yelena
ВладимировичСтанислав
eisakov86
nadejdashin508
jenn055
eliteclassic308
oksana-popova
u-bhank
fotostock
paninsv