Помогите написать программку в паскале. Заблаговременно спасибо)

Помогите написать программку в паскале. Заблаговременно спасибо)

Задать свой вопрос
Арсений
данные о месяцах из фала доставать либо в прогу можно забить?
Славик Карбер
В прогу забить можно
1 ответ
Program z21;  Var  n, days, a:integer; b,c:set of integer;Begin  write ('Введите номер месяца - '); readln (n);  write ('Введите признак года - '); readln (a);  b:= [1,3,5,7,8,10,12];  c:= [3,6,9,11];  if (n in b) then days:= 31;  if (n in c) then days:= 30;  if (n = 2) then if (a = 1) then days:= 29                            else days:= 28; writeln('Кол-во дней = ', days);End.
Кирилл Бугреев
Спасибо)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт