Помогите написать программку пожалуйста упрашиваю !!!!!!!

Помогите написать программку пожалуйста упрашиваю !!!!!!!

Задать свой вопрос
Серж Сгоннов
Язык?
Артём Стюднев
Паскаль
Димка Пашен
ты сделаешь
Jelvira
помоги
Виолетта Лобочук
Ок
Арина Илишина
Подождать только придется
Кирилл Шиподько
Так как порядком пренебрегал его
Виктория Гпельман
Ок превосходно
Жека Башуткин
n_d , season -не пиши
1 ответ

Ответ:

var  

season,n_d,n_m:integer;

begin

Writeln('Введите номер месяца');Readln(n_m);

case n_m of

1,2,12:Writeln('Время года-Зима');

3,4,5:Writeln('Время года-Весна');

6,7,8:Writeln('Время года-Лето');  

9,10,11:Writeln('Время года-Осень');

else Writeln('Введен ошибочный номер месяца');  

end;

case n_m of

1,3,5,7,8,10,12:Writeln('Количество дней-31');

2:Writeln('Количество дней-28');

4,6,9,11:Writeln('Количество дней-30');

end;

end.

Разъясненье:

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт