Информатика, опубликовано 2018-08-22 18:29:47 by Гость
Робинзон Крузо провёл на острове f дней. Сколько полных недель он пробыл на острове?
Ответ оставил Гость
uses crt;
var f, n:integer;
BEGIN
ClrScr;
readln(f);
if f mod 7 = 0 then write(f/7) else write((f-(f mod 7))/7) ;
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.