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

На Pascal ABC

Question

Информатика

Гулшод

14 октября, 20:03

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

На Pascal ABC

+5

Ответы (1)

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

Рохини · Answer 1

var

f: integer;

begin

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

readln (f) ;

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

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

end.

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

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

На Pascal ABC