Дивов
6 год назад
Напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет, Как узнать сколько дней осталось до Нового года. При вводе неверных данных должно быть выведено сообщение об ошибке. Считается, что год невисокосный.Входные данныеВходная строка содержит два целых числа: номер месяца и номер дня в этом месяце.Выходные данныеПрограмма должна вывести количество дней, оставшихся до Нового года. Если введены неверные данные, нужно вывести число -1.Примерывходные данные1 2выходные данные363входные данные12 30выходные данные1На паскале
ОТВЕТЫ
Stefan
Oct 24, 2020
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.
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.
589
Смежные вопросы:
