Нарисуйте алгоритм пожалуйстаааааааа
№4
Написать программу, которая по данному натуральному числу от 1 до 12 (номеру
месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если
введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что
праздников нет.
№4
Написать программу, которая по данному натуральному числу от 1 до 12 (номеру
месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если
введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что
праздников нет.
More Questions From This User See All
Answers & Comments
program months;
{$APPTYPE CONSOLE}
uses SysUtils;var i:Integer;begin Write ('Vvedite nomer mesyaca'); Writeln(i); Readln(i);
case i of 1: Writeln ('January-1,2,3,4,5,6,7,8'); 2: Writeln ('February-22,23'); 3: Writeln ('March-8'); 4: Writeln ('April-net'); 5: Writeln ('May-1,8,9'); 6: Writeln ('June-12'); 7: Writeln ('July-net'); 8: Writeln ('August-net'); 9: Writeln ('September-net'); 10:Writeln ('October-net'); 11:Writeln ('November-4,5,6'); 12:Writeln ('December-net'); end; Readln
{ TODO -oUser -cConsole Main : Insert code here }end.
Там даты (номера) праздничных дней можете подправить, как вам надо!