Question

Составьте программу, которая выводит на экран таблицу перевода 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 нед.

Answer 1

Відповідь:

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.