Словесное наименование сезона по номеру месяца на Pascal
Словесное наименование сезона по номеру месяца...
var
Month: integer;
Season: string;
begin
write('Введите номер месяца: ');
readln(Month);
case Month of
1,2,12: Season := 'Зима';
3..5: Season := 'Весна';
6..8: Season := 'Лето';
9..11: Season := 'Осень';
else Season := 'Вы ввели неверный номер месяца';
end;
writeln('Это ',Season)
end.
10.02.2015, 09:01 -
Категория: Статьи » Программирование » Pascal
