Робинзон Крузо провёл на острове f дней. Сколько полных недель и месяцев он пробыл на острове? Примечание: будем считать, что месяц содержит 30 дней?
На Pascal ABC

Предыдущий
вопрос Следующий
вопрос

program RobinsonCrusoe;
var
days, weeks, months: integer;
begin
days := 56; // Замените на нужное количество дней
weeks := days div 7;
months := days div 30;
writeln('Robinson Crusoe spent on the island: ', weeks, ' full weeks and ', months, ' full months.');
end.