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

2

Ответы и объяснения

  • Sky09
  • профессор
2013-06-24T00:49:36+04:00

var

  k:integer;
begin

  read(k);

  case k of

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

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

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

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

  end;
end.

  • 4MD
  • отличник
2013-06-24T01:44:33+04:00

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.