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

На Pascal ABC

Question

Информатика

Екапеталина

28 ноября, 20:32

Робинзон Крузо провёл на острове 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