Ежемесячный номер выпуска дается-1-12 целое число (1 января, 2 февраля и т. Д.). Напишите программу на соответствующий годовой срок («зима», «весна», «лето», «осень»)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
n : integer;
begin
write('введите номер месяца ');
readln(n);
case n of
1, 2, 12 : writeln('зима');
3..5 : writeln('весна');
6..8 : writeln('лето');
9..11 : writeln('осень');
else writeln('за гранью разумного');
end;
end.