Дан номер месяца (1 — январь, 2 — февраль, …). Вывести название соответствующего времени года («зима», «весна» и т.д.).
Program Begin63;
Uses crt;
Var
month:integer;
begin
ClrScr;
WriteLn (‘Введите месяц’);
ReadLn (month);
if (month>0) and (month<13) then
case month of
1,2,12: WriteLn ('Зима');
3,4,5: WriteLn ('Весна');
6,7,8: WriteLn ('Лето');
8,9,10: WriteLn ('Осень');
end
else
if (month<0) and (month>13) then
WriteLn (‘Нет такого’);
ReadLn;
end.
Добавить комментарий