Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

Это нужно делать в Паскале(с помощью структуры Case).

Ответов к вопросу: 1
  • mkozhukalova
    03.08.2024 | 00:13

    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.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.