Question

Пожалуйста !!!!!!!!!! Срочно !!!!!!!!!!!!!!!
1)
До начала каникул остается D дней. Определите сколько полных недель и сколько дней до начала каникул.Выделите операторы программы, необходимые для решения этой задачи.

Program holiday;

Var D : integer; // Дано

week, day: integer; // Найти

Begin

[ Readln / Writeln / Integer] (D);

week := [ D div 7 / D mod 7 / D ⁄ 7 ];

day := [ D mod 7 / D div 7 / M mod 7 / M div D];

[ writeln / readln] (‘Всего ’ [ week / D / day / 7] ,’недель и ’ , [ day / D / 7], ‘ дней’ )

End.

(мне нужен правильный ответ )

Answer 1

Ответ:

Полная программа будет выглядеть так:

Var D : integer;

week, day: integer;  

Begin  

Readln (D);  

week :=  D div 7 ;  

day :=  D mod 7;

writeln  (‘Всего ’ week, ’недель и ’ , day, ‘ дней’ ) ;

End.

Объяснение: