с задачей: Сформировать дерево синтаксического разбора оператора цикла FOR = TO DO ; поменять узел, чтобы получить оператор: FOR = DOWNTO DO ; Вывести промежуточную и конечную информации.
В программе применить динамичные типы данных, указательные типы. Также применить процедуры для формирования, удаление, поиск для динамических бинарных деревьев. Осуществить ввод и вывод динамических данных.
Сформувати дерево синтаксичного розбору оператора циклу FOR := TO DO ; поміняти вузол, щоб одержати оператор: FOR := DOWNTO DO ; Вивести проміжну та кінцеву інформації.
У програмі застосувати динамічні типи даних, вказівникові типи. Також застосувати процедури для формування, видалення, пошуку для динамічних бінарних дерев. Здійснити введення й виведення динамічних даних.
243
386
Ответы на вопрос:
Var день,месяц: byte; begin write('№ дня = '); readln(день); var c: =365-день; write('№ месяца = '); readln(месяц); case месяц of 2: c: =c-31; 3: c: =c-59; 4: c: =c-90; 5: c: =c-120; 6: c: =c-151; 7: c: =c-181; 8: c: =c-212; 9: c: =c-243; 10: c: =c-273; 11: c: =c-304; 12: c: =c-334 end; if (c mod 100> 10)and(c mod 100< 20) then write('до нового года осталось ',c,' дней') else case c mod 10 of 1: write('до нового года остался ',c,' день'); 2..4: write('до нового года осталось ',c,' дня'); 0,5..9: write('до нового года осталось ',c,' дней') end end.
Популярно: Информатика
-
дРуЗьЯ00729.04.2023 15:01
-
oles201411.06.2023 14:10
-
irochkaneznano14.01.2020 17:03
-
anastasanesvido03.03.2022 07:00
-
DashuliaKopaeva04.03.2021 21:58
-
fox36318.03.2021 08:38
-
artesmenil18.09.2020 17:13
-
shishking2015oz5wew01.05.2023 18:53
-
titomasha08.10.2021 17:05
-
АлексейРИ08.12.2020 21:38