По введеному номеру месяца вывести название времени года,помогите пожалуйста..... сделать через PASCAL,оператор case

По введеному номеру месяца вывести название времени года,помогите пожалуйста..... сделать через PASCAL,оператор case
Гость
Ответ(ы) на вопрос:
Гость
var   k:integer; begin   read(k);   case k of     1..2,12: write('зима');     3..5: write ('весна');     6..8 : write ('лето');     9..11: write ('осень');   end; end.
Гость
var  n : integer; begin readln (n); case n of 1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы