Напишите программу, которая вводит с клавиатуры номер месяца и денек, и

Напишите программу, которая вводит с клавиатуры номер месяца и денек, и определяет, сколько дней осталось до Нового года. При вводе неправильных данных обязано быть выведено извещенье об ошибке. Считается, что год невисокосный.
Входные данные
Входная строка содержит два целых числа: номер месяца и номер денька в этом месяце.
Выходные данные
Программка обязана вывести количество дней, оставшихся до Нового года. Если введены неверные данные, нужно вывести число -1.
Образцы
входные данные
1 2
выходные данные
363
входные данные
12 30
выходные данные
1

На паскале

Задать свой вопрос
1 ответ
var a, d, count, i: integer;   function CountDay(a: integer): integer; begin   if (a gt;= 1) then countday := 31;   if (a gt;= 2) then countday := 28;   if (a gt;= 3) then countday := 31;   if (a gt;= 4) then countday := 30;   if (a gt;= 5) then countday := 31;   if (a gt;= 6) then countday := 30;   if (a gt;= 7) then countday := 31;   if (a gt;= 8) then countday := 31;   if (a gt;= 9) then countday := 30;   if (a gt;= 10) then countday := 31;   if (a gt;= 11) then countday := 30;   if (a gt;= 12) then countday := 31; end;   begin   count := 0;   write('Введите месяц: ');   readln(a);   write('Введите денек: ');   readln(d);   if (a lt;= 0)or(a gt; 12)or(d lt;= 0)or(d gt; countday(a)) then     writeln('Ошшибка в данных!')   else   begin     for i:=a to 12 do       count := count + countday(i);       count := count - d;       writeln('До нового года осталось ', count, ' дней.');   end; end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт