Даю 30 баллов. 4 задание.

Даю 30 баллов. 4 задание.

Задать свой вопрос
1 ответ
Program;Var n:byte;beginreadln(n);Case n of 1: writeln ('Зима');2: writeln ('Зима');3: writeln ('Весна');4: writeln ('Весна');5: writeln ('Весна');6: writeln ('Лето');7: writeln ('Лето');
8: writeln ('Лето');9: writeln ('Осень');
10: writeln ('Осень');11: writeln ('Осень');
12: writeln ('Зима')Else writeln ('Ошибка');end;End.

__________________
Case n of1,2,12:Writeln('Зима');3,4,5:Writeln('Весна');6,7,8: Writeln('Лето');
9,10,11: Writeln('Осень');End;
____
Не могу быть точна уверена в правильности решения 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт