Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2,... m дней количество недель.
Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+2,... m дней количество недель.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы