Задать вопрос
13 мая, 02:31

Нужно определить, сколько дней в месяце по порядковому номеру заданного месяца. Здесь N (1-12) - номер месяца, A (0 или 1) - признак високосности года, 0 - простой год, 1 - високосный год. Pascal.

+5
Ответы (1)
  1. 13 мая, 03:34
    0
    Var N, A:integer;

    begin

    writeln ('Введите N:') ;

    readln (N) ;

    writeln ('Введите A:') ;

    readln (A) ;

    if (N = 1) or (N = 3) or (N = 5) or (N = 7) or (N = 8) or (N = 10) or (N = 12) then

    writeln ('В месяце 31 день')

    else if (N = 4) or (N = 6) or (N = 9) or (N = 11) then

    writeln ('В месяце 30 дней')

    else if (N = 2) and (A = 0) then

    writeln ('В месяце 28 дней')

    else if (N = 2) and (A = 1) then

    writeln ('В месяце 29 дней')

    else

    writeln ('Данные введены неправильно!') ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Нужно определить, сколько дней в месяце по порядковому номеру заданного месяца. Здесь N (1-12) - номер месяца, A (0 или 1) - признак ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы