menu
person

Тема №5793

Напишите программу, которая вводит с клавиатуры номер месяца и день, и

Напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет, сколько дней осталось до Нового года. При вводе неверных данных должно быть выведено сообщение об ошибке. 

var a, d, count, i: integer;
  function CountDay(a: integer): integer;
begin
  if (a >= 1) then countday := 31;
  if (a >= 2) then countday := 28;
  if (a >= 3) then countday := 31;
  if (a >= 4) then countday := 30;
  if (a >= 5) then countday := 31;
  if (a >= 6) then countday := 30;
  if (a >= 7) then countday := 31;
  if (a >= 8) then countday := 31;
  if (a >= 9) then countday := 30;
  if (a >= 10) then countday := 31;
  if (a >= 11) then countday := 30;
  if (a >= 12) then countday := 31;
end;
 
begin
  count := 0;
  write('Введите месяц: ');
  readln(a);
  write('Введите день: ');
  readln(d);
  if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then
    writeln('Ошшибка в данных!')
  else
  begin
    for i:=a to 12 do
      count := count + countday(i);
      count := count - d;
      writeln('До нового года осталось ', count, ' дней.');
  end;
end.
Категория: Информатика | Просмотров: 1 | Рейтинг: 0.0/0