Напишите программку, которая вводит с клавиатуры номер месяца и денек, и
Напишите программу, которая вводит с клавиатуры номер месяца и денек, и определяет, сколько дней осталось до Нового года. При вводе неправильных данных обязано быть выведено извещенье об ошибке. Считается, что год невисокосный.
Входные данные
Входная строчка содержит два целых числа: номер месяца и номер денька в этом месяце.
Выходные данные
Программа обязана вывести количество дней, оставшихся до Нового года. Если введены неправильные данные, необходимо вывести число -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
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов