Ребята, помогите. Дам 30 баллов за помощь.
Помогите найти ошибку в коде на паскале
Условие: По введенному с клавиатуры номеру времени года вывести на экран его название(1-зима, 2-весна, 3- лето, 4-осень)
Код, который я написал
Var n: integer;
Begin ;
Readln (n)
Case n of
1,2,12 :write ('Зима' ) ;
3,4,5 :write ('Весна') ;
6,7,8 :write ('Лето') ;
9,10,11 :write ('Осень') ;
Else write ('Такого месяца нет') ;
End;
End
Помогите найти ошибку.
Приложения:
![](https://st.uroker.com/files/b6e/b6e9b00409346587bb4fcba51a96e36e.jpg)
Ответы
Ответ дал:
0
Var n: integer;
Begin ;
Readln (n);
Case n of
1,2,12 :write ('Зима' ) ;
3,4,5 :write ('Весна') ;
6,7,8 :write ('Лето') ;
9,10,11 :write ('Осень') ;
Else write ('Такого месяца нет') ;
End;
End.
Ответ дал:
0
Извините, так где была ошибка?
Ответ дал:
0
Сравните коды. Readln (n); - точка с запятой в конце. И точка после последнего end
Ответ дал:
0
Большое спасибо!
Ответ дал:
0
Пожалуйста
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад