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

Question

Информатика

Абдуллазиз

13 июня, 01:32

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мазбут · Answer 1

var

f: integer;

begin

write ('Сколько дней: ') ;

readln (f) ;

writeln ('Полных недель: ', f div 7) ;

writeln ('Полных месяцев (берем месяц 30 дней) : ', f div 30) ;

end.