Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2,... m дней количество недель.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад