Решаем задачи Абрамян на Паскале. Case4

Case4. Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 февраль и т. д.). Определить количество дней в этом месяце для невисокосного года.

Решение:

program Case4;
var
  M: Integer;
begin
  Write('Введите номер месяца: ');
  Readln(M);
  Case M of
   1,3,5,7,8,10,12 : Writeln('В месяце 31 днень.');
   4,6,9,11 : Writeln('В месяце 30 дней.');
   2 : Writeln('В месяце 28 дней.');
  end;
end.

program Case4;

var

M: Integer;

begin

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

Readln(M);

Case M of

1,3,5,7,8,10,12 : Writeln('В месяце 31 днень.');

4,6,9,11 : Writeln('В месяце 30 дней.');

2 : Writeln('В месяце 28 дней.');

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Case4

Комментарии:

Добавить комментарий Отменить ответ