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

Вопрос школьника по предмету Информатика

Напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет, сколько дней осталось до Нового года. При вводе неверных данных должно быть выведено сообщение об ошибке. Считается, что год невисокосный.

Входные данные
Входная строка содержит два целых числа: номер месяца и номер дня в этом месяце.

Выходные данные
Программа должна вывести количество дней, оставшихся до Нового года. Если введены неверные данные, нужно вывести число -1.

Примеры
входные данные
1 2
выходные данные
363
входные данные
12 30
выходные данные
1
На паскале

Ответ учителя по предмету Информатика

Var a,b,c,z:real;

 Begin  

Writeln(‘Введите номер месяца и число’); 

readln(a,b);

 if a=1 then a:=1 

else if a=2 then a:=30 

else if a=3 then a:=60

 else if a=4 then a:=90 

else if a=5 then a:=120

 else if a=6 then a:=150

 else if a=7 then a:=180

 else if a=8 then a:=210

 else if a=9 then a:=240

 else if a=10 then a:=270

 else if a=11 then a:=300

 else if a=12 then a:=330;

 If b>30 then writeln(‘-1’); 

c:=a+b;

 z:=365-c;

 writeln(‘До нового года ещё ‘,z,’дней/я’);

 End.