Программа:
Pascal:
var
f, years, weeks, days: integer;
begin
readln(f);
years := f div 365;
weeks := (f - years * 365) div 7;
days := f - years * 365 - weeks * 7;
writeln(f, ' дней - это ', years, ' лет, ', weeks, ' недель, ', days, ' дней.');
end.
Объяснение:
В начале регистрируются переменные f, years, weeks, days. Далее - вводится число f (дней). Число полных лет - результат целочисленного деления f на 365. Число полных недель - результат целочисленного деления оставшегося количества дней на 7. Число дней - оставшиеся количество дней после определения years и weeks. В конце - вывод этих значений.
Результат:
1000
1000 дней - это 2 лет, 38 недель, 4 дней.
