По заданному году 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.
Answers & Comments
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.