Составить программу в Pascal ABC , которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число. После этого выводит сообщение о том, сколько дней осталось до конца месяца. Пример работы программы...
Составить программу в Pascal ABC , которая запрашивает у пользователя год количество дней в текущем месяце и сегодняшнее число. После этого выводит сообщение о том, сколько дней осталось до конца месяца.
Пример работы программы:
Сколько дней в текущем месяце?
31
Какое сегодня число?
26
Количество дней до конца текущего месяца: 5.
Гость
Ответ(ы) на вопрос:
Гостьvar god,mes,chislo:integer;
begin
Write('Какой год '); Readln(god);
write('Сколько дней в текущем месяце? '); Readln(mes);
write('Какое сегодня число? '); readln(chislo);
write('Количество дней до конца текущего месяца: ',mes-chislo);
end.
Не нашли ответ?
Похожие вопросы