ОЧЕНЬ НАДО Робинзон прожил на острове f дней. Написать программу, которая определяет сколько это лет недель и дней.

Программа:
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 дней.