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

Question

Информатика

Зенона

17 мая, 17:26

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

+5

Ответы (1)

Знаете ответ?

Дарюха · Answer 1

Var

number, day, month: integer;

begin

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

readln (number) ;

day : = (number mod 30) ;

month : = (number div 30) ;

writeln (day, '.', month) ;

end.