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

Question

Информатика

Лавруня

14 октября, 13:52

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

+1

Ответы (1)

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

Гервасий · Answer 1

Var

number, day, month: integer;

begin

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

readln (number);

day : = (number mod 30);

month : = (number div 30);

writeln (day, '.', month);

end.