Задать вопрос
14 ноября, 08:46

Как в паскале запросить у пользователя: день, месяц и год в трех разных переменных. Выдать следующую по календарю дату?

+3
Ответы (1)
  1. 14 ноября, 11:41
    0
    Високосные года уже не учитывал (найдёте ошибку - не поленитесь написать в комменты)

    var a, b, c:integer;

    begin

    writeln ('Введите сегодняшний день, месяц, год (например, 1 12 2013) ') ;

    read (a, b, c) ;

    if (((b=1) or (b=3) or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a=1) and (a=1) and (a<=30))) then

    begin

    writeln ('Сегодня ', a,'.', b,'.', c) ;

    if (((b=1) or (b=3) or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b=12)) then writeln ('Завтра 1.1.', c+1) else

    if (((b=1) or (b=3) or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a=31) and (b12)) then writeln ('Завтра 1.', b+1,'.', c) else

    if (((b=1) or (b=3) or (b=5) or (b=7) or (b=8) or (b=10) or (b=12)) and ((a>=1) and (a<=31))) and ((a31) and (b=12)) then writeln ('Завтра ', a+1,'.', b,'.', c) else

    if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b=12)) then writeln ('Завтра 1.1.', c+1) else

    if ((b=2) and ((a>=1) and (a<=28))) and ((a=28) and (b12)) then writeln ('Завтра 1.', b+1,'.', c) else

    if ((b=2) and ((a>=1) and (a<=28))) and ((a28) and (b=12)) then writeln ('Завтра ', a+1,'.', b,'.', c) else

    if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b=12)) then writeln ('Завтра 1.1.', c+1) else

    if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a=30) and (b12)) then writeln ('Завтра 1.', b+1,'.', c) else

    if (((b=4) or (b=6) or (b=9) or (b=11))) and ((a>=1) and (a<=30)) and ((a30) and (b=12)) then writeln ('Завтра ', a+1,'.', b,'.', c) else

    writeln ('Завтра ', a+1,'.', b,'.', c) ;

    end else

    writeln ('Неправильная дата') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Как в паскале запросить у пользователя: день, месяц и год в трех разных переменных. Выдать следующую по календарю дату? ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы