Вычислить число и месяц в невисокосном году по номеру дня (информатика, написать программу)

Question

Информатика

Веденя

28 мая, 06:48

Вычислить число и месяц в невисокосном году по номеру дня (информатика, написать программу)

+3

Ответы (1)

Знаете ответ на вопрос?

Арсентьич · Answer 1

Var

number, day, month: integer;

begin

writeln ('Напишите день') ;

readln (number) ;

day : = (number mod 30) ;

month : = (number div 30) ;

writeln (day, '.', month) ;

end.