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

hristina112 hristina112    1   18.05.2021 21:15    15

Ответы
Соня11647 Соня11647  18.05.2021 22:00

Відповідь:

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика