Ввести номер месяца и вывести кол-во дней в нем и число ошибок при вводе

мари420 мари420    1   17.08.2019 17:20    0

Ответы
gorjchevst gorjchevst  05.10.2020 01:10
 program m_1;

 var b:integer;

begin

writeln('Введите номер месяца');

readln(b);

if b>=13 then writeln('Вы дурак месяцов всего 12');

case b 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 дней');

end;

end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика