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

Case3. Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).

Решение:

program Case3;
var
  M:Integer;
begin
  Write('Введите номер месяца: ');
  Readln(M);
  Case M of
   12,1,2 :   Writeln('зима');
   3..5   :   Writeln('весна');
   6..8   :   Writeln('лето');
   9..11  :   Writeln('осень');
  end;
end.

program Case3;

var

M:Integer;

begin

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

Readln(M);

Case M of

12,1,2 : Writeln('зима');

3..5 : Writeln('весна');

6..8 : Writeln('лето');

9..11 : Writeln('осень');

end;

end.

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

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

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

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