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*
Комментарий*

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

ИП-Сысоев1628
rusplatok
denbelousov963
margarita25061961
Филиппович_Николаевич
alexandergulyamov
annaan-dr582
Семеновна-Павел
extremhunter
mlf26
corneewa20096
Смирнов-Оськина
Vladimirovna1370
kriapex
ovdei71