Question

Напишите программу, которая вводит номер месяца и выводит название времени года. оператор выбора использовать не разрешается. При вводе неверного номера месяца должно быть выведено сообщение об ошибке. (ПАСКАЛЬ)(БЕЗ CASE)

Answer 1

program nomermesaca;

var a:integer;

begin

writeln('введите номер месяца'); readln(a);

Case a of

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

3,4,5:writeln ('весна');

6,7,8:writeln ('лето');

9,10,11:writeln ('осень')

else

writeln ('ошибка');

end;

readln;

end.