В ячейку D8 введите текущую дату.

 Если количество дней, оставшихся до Нового года, составляет меньше месяца, то выведите в ячейку D9 фразу "До Нового Года осталось меньше месяца".

 Если больше месяца или ровно месяц - то подсчитайте и выведите в D9 количество недель оставшихся до Нового Года.

(Количество дней, оставшихся до Нового Года, в отдельную ячейку не выводите).

Question

Информатика

Петрония

21 июня, 00:38

В ячейку D8 введите текущую дату.

 Если количество дней, оставшихся до Нового года, составляет меньше месяца, то выведите в ячейку D9 фразу "До Нового Года осталось меньше месяца".

 Если больше месяца или ровно месяц - то подсчитайте и выведите в D9 количество недель оставшихся до Нового Года.

(Количество дней, оставшихся до Нового Года, в отдельную ячейку не выводите).

+2

Ответы (1)

Знаете ответ?

Вивиана · Answer 1

Var day:integer; begin writeln ('введите сколько осталось до нового года ') ; readln (day) ; if (day < 30) then begin writeln ('до нового года осталось меньше месяца') ; end else begin writeln ('до нового года осталось ', day,'дней') ; end; end. если не в паскале сорян сейчас решу на паскале