Напишите программу, которая вводит с клавиатуры номер месяца и денек, и
Напишите программу, которая вводит с клавиатуры номер месяца и денек, и определяет, сколько дней осталось до Нового года. При вводе неправильных данных обязано быть выведено извещенье об ошибке. Считается, что год невисокосный.
Входные данные
Входная строка содержит два целых числа: номер месяца и номер денька в этом месяце.
Выходные данные
Программка обязана вывести количество дней, оставшихся до Нового года. Если введены неверные данные, нужно вывести число -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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 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 причём
Геометрия.
Облако тегов