Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Жду помощи
Помогите решить задачу!!! Вроде бы не сложная, но затупила!!!
Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года.
Пример:
Введите номер месяца:
12
Введите день:
25
До Нового года осталось 6 дней
1 | Автор: meri | 2011-01-18, 14:20   |  Репутация: [ + 0 ]
Вот тебе решение:
Code
Program Dni;
type
  massiv=array [1..12] of integer;
const
  a:massiv=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  chis, mes, i: byte;
  dni: integer;
begin
  writeln('Vvedite 4islo i mesiac 4erez probel');
  readln(chis,mes);
  for i:=mes+1 to 12 do
  dni:=dni+a[i];
  dni:=dni+a[mes]-chis;
  writeln('Do Novogo Goda ostalosb ',dni,' dnei');
  readln;
end.

(НЕ ЗАБЫВАЕМ СТАВИТЬ "ПЛЮСИК")


Тот, кто смеется последним, просто не врубился сразу.)
2 | Автор: Ifrit | 2011-01-18, 18:02   |  Репутация: [ + 12 ]
  • Страница 1 из 1
  • 1
Поиск: