Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2, … m дней в количество недель. Числа n и m вводятся с клавиатуры. Протокол:
Введите границы: 13 17
13 дней = 1.9 нед.
14 дней = 2.0 нед.
15 дней = 2.1 нед.
16 дней = 2.3 нед.
17 дней = 2.4 нед.
Відповідь:
var
i, n, m: integer;
begin
readln(n, m);
for i := n to m do
begin
if (i mod 7 = 0) then
write(i div 7,' ')
else
write(i div 7 + 1,' ');
end;
end.