Напишите программку, которая вводит с клавиатуры номер месяца и денек, и
Напишите программу, которая вводит с клавиатуры номер месяца и денек, и определяет, сколько дней осталось до Нового года. При вводе неправильных данных обязано быть выведено извещенье об ошибке. Считается, что год невисокосный.
Входные данные
Входная строчка содержит два целых числа: номер месяца и номер денька в этом месяце.
Выходные данные
Программа обязана вывести количество дней, оставшихся до Нового года. Если введены неправильные данные, необходимо вывести число -1.
Образцы
входные данные
1 2
выходные данные
363
входные данные
12 30
выходные данные
1
На паскале
2 ответа
Антонина
Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if Agt;1 then C:=C-31;
if A=1 then C:=C-B;
if Agt;2 then C:=C-28;
if A=2 then C:=C-B;
if Agt;3 then C:=C-31;
if A=3 then C:=C-B;
if Agt;4 then C:=C-30;
if A=4 then C:=C-B;
if Agt;5 then C:=C-31;
if A=5 then C:=C-B;
if Agt;6 then C:=C-30;
if A=6 then C:=C-B;
if Agt;7 then C:=C-31;
if A=7 then C:=C-B;
if Agt;8 then C:=C-31;
if A=8 then C:=C-B;
if Agt;9 then C:=C-30;
if A=9 then C:=C-B;
if Agt;10 then C:=C-31;
if A=10 then C:=C-B;
if Agt;11 then C:=C-30;
if A=11 then C:=C-B;
if Agt;12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if Agt;1 then C:=C-31;
if A=1 then C:=C-B;
if Agt;2 then C:=C-28;
if A=2 then C:=C-B;
if Agt;3 then C:=C-31;
if A=3 then C:=C-B;
if Agt;4 then C:=C-30;
if A=4 then C:=C-B;
if Agt;5 then C:=C-31;
if A=5 then C:=C-B;
if Agt;6 then C:=C-30;
if A=6 then C:=C-B;
if Agt;7 then C:=C-31;
if A=7 then C:=C-B;
if Agt;8 then C:=C-31;
if A=8 then C:=C-B;
if Agt;9 then C:=C-30;
if A=9 then C:=C-B;
if Agt;10 then C:=C-31;
if A=10 then C:=C-B;
if Agt;11 then C:=C-30;
if A=11 then C:=C-B;
if Agt;12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.
Maksimka
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 bgt;30 then writeln('-1');
c:=a+b;
z:=365-c;
writeln('До нового года ещё ',z,'дней/я');
End.
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 bgt;30 then writeln('-1');
c:=a+b;
z:=365-c;
writeln('До нового года ещё ',z,'дней/я');
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов