Информатика

Степаныч

22 мая, 03:37

Информатика

Задача

Пользователь вводит день (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.