Составить программу, которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число. После этого выводит сообщение о том, сколько дней осталось до конца месяца.

Пример работы программы:

Сколько дней в текущем месяце?31

Какое сегодня число?26

Количество дней до конца текущего месяца: 5.

Question

Информатика

Любомысл

11 ноября, 19:18

Составить программу, которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число. После этого выводит сообщение о том, сколько дней осталось до конца месяца.

Пример работы программы:

Сколько дней в текущем месяце?31

Какое сегодня число?26

Количество дней до конца текущего месяца: 5.

+3

Ответы (1)

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

Тимофей · Answer 1

Var x, y:longint;

begin

write ('Сколько дней в текущем месяце?') ;

readln (x) ;

write ('Какое сегодня число? ') ;

readln (y) ;

writeln ('Количество дней до конца текущего месяца: б', x-y)

end.