напишите программу: по заданному номеру месяца будет напечатано его название и указать , количество дней в месяце. паскаль. помогите пожалуйста :)
1-4 класс
|
var a:integer;
begin
readln(a);
case a of
1:writeln('январь,31 день');
2:writeln('февраль,28(29) дней');
3:writeln('март,31 день');
4:writeln('апрель,30 дней');
5:writeln('май,31 день');
6:writeln('июнь,30 дней');
7:writeln('июль,31 день');
8:writeln('август,31 день');
9:writeln('сентябрь,30 дней');
10:writeln('октябрь,31 день');
11:writeln('ноябрь,30 дней');
12:writeln('декабрь,31 день');
end;
end.
Другие вопросы из категории
Читайте также
снежный буран. 4)На Камчатке много горячих гейзеров. 5)Караван двигался по песчаным барханам. 6)Вдали появились ледяные айсберги. 7)Однажды раз мы заблудились в лесу. 8) Мы вновь возобновили переписку. 9)Муму очень сильно привязалась к Герасиму. 10)Через месяц спустя геологи уехали.
2)Нахождение минимум из 2 чисел.
Благодарю.
интервале между двумя введёнными числами. Например, пользователь вводит числа 10 и 20, программа выводит «12 14 16 18», если -8 и -3, то «-6 –4». Если пользователь вводит, например, числа 6 и 8, программа ничего не выводит. Точно так же программа ничего не выводит, если введённые числа равны, или второе указанное число меньше первого.
1-Дано : массив целых чисел А[N]. Проверьте , есть ли в нем элементы равные нулю. Если есть, то найдите номер первого из них, те наименьшее i, при котором А[i]=0, иначе выведите сообщение.
2- Из заданной строки выбрать и напечатать все слова начинающиеся с буквы "А".