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