Тема №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.

Категория: Информатика | Добавил: Админ (20.03.2016)
Просмотров: | Рейтинг: 0.0/0


Другие задачи:
Всего комментариев: 0
avatar