Question

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

Answer 1

Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
end.