Информатика Задача Пользователь вводит день(1-30),месяц(1-12),год. Каждый месяц=30 дням Ответ: день:месяц;год Вопрос пользователя: Как получить ответ, например 12:12:2016 выходит ответ вот такой 12122016 Решение Var a,b,c,d:In...

Информатика Задача Пользователь вводит день(1-30),месяц(1-12),год. Каждый месяц=30 дням Ответ: день:месяц;год Вопрос пользователя: Как получить ответ, например 12:12:2016 выходит ответ вот такой 12122016 Решение Var a,b,c,d:Integer; Begin Writeln('введите какой день(1-31),месяц(1-12),год'); Readln(a); Readln(b); Readln(c); If (a=28) and (a=29) then (a=1),(b=3); write('Завтра:',a,b,c); end.