Программа которая вычисляет дату следующего дня

Написать программу,которая вычисляет дату следующего дня.( Pascal) Ниже рекомендуемый вид работы программы.(данные введенные пользователем,выделены жирным шрифтом) Введите цифрами сегодняшнюю дату(число,месяц,год) 31 12 1998 Последний день месяца! С наступающим новым годом! Завтра 1.1.2000

Ответ(ы) на вопрос:

Паскаль АВС. Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты — то есть пользователь должен вводить только правильные цифры 🙂 Program Upmixer; var day, month, year:integer; begin writeln(‘Введите дату:’); write(‘День:’); read (day); write(‘Месяц:’); read (month); write(‘Год:’); read (year); day:=day+1; <если было введено 29 февраля високосного года>if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then begin day:=1; month:=month+1; end; <если было введено 28 февраля невисокосного года>if (((year mod 4)<>0) and (month=2) and (day=29)) then begin day:=1; month:=month+1; end; if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then begin day:=1; month:=month+1; end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then begin day:=1; month:=month+1; end; if ((day=32) and (month=12)) then begin day:=1; month:=1; year:=year+1; end; writeln(‘Завтра ‘, day,’ ‘,month,’ ‘,year); end.

СРОЧНО! Новое Предсказание Сидика Афгана

Источник: cwetochki.ru

Напишите программу в Паскале) написать программу которая вычисляет дату следующего дня. Введите цифрами сегодняшнюю дату (число, месяц, год) 31 12 1998

Получи верный ответ на вопрос «Напишите программу в Паскале) написать программу которая вычисляет дату следующего дня. Введите цифрами сегодняшнюю дату (число, месяц, . » по предмету Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!

Новые вопросы по информатике
Напиши обратные действия. Снять — Открыть — Прилететь —
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?