Робинзон Крузо провёл на острове f дней. Сколько полных недель он пробыл на острове? в pascal abc

Question

Игорка

6 августа, 13:23

+1

Ответы (1)

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

Секлетея · Answer 1

Var f, n:integer;

begin

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

readln (f) ;

n:=f div 7;

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

end.