По заданному году G и номера месяца M определите количество дней в месяце. Это н...

July 2022 1 107 Report

По заданному году G и номера месяца M определите количество дней в месяце.
Это нужно делать в Паскале(с помощью структуры Case).

Answers & Comments

asoiiu Program Primer;
var
m,g:Integer;
begin
Write('Введите год: ');
ReadLn(g);
Write('Введите номер месяца: ');
ReadLn(m);
if (g mod 4=0) and (m=2)
then WriteLn('В феврале ',g,' года 29 дней')
else
case m of
1: WriteLn('В январе 31 день');
2: WriteLn('В феврале 28 дней');
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 день')
else WriteLn('Такого месяца не существует');
end;
end.

2 votes Thanks 1

Answers & Comments

Определите степени окисления у каждого вещества С2Н6,С2Н4,С2Н5ОН...

Составить алгоритм нахождения(это нужно делать в Паскале) 1) меньшего из двух чи...

Сколько Чичиков купил душ у Собакевича?...

парикмахера. Объясните, почему Вы думаете так...

Как это выражение записать в Паскале?...

рекомендуемые вопросы

Helpful Links

Helpful Social