0 рейтинг
28 видели

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

от (12 баллов) в разделе Информатика | 28 видели

2 Ответов и Решений

0 рейтинг

var

  k:integer;
begin

  read(k);

  case k of

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

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

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

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

  end;
end.

от (7.2k баллов)
0 рейтинг

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.

от (2.5k баллов)
10,984,878 заданий
13,471,016 решений
8,518,553 комментариев
4,909,216 пользователей