Размещено 4 года назад по предмету
Информатика
от glebshkurko05
Помогите пожалуйста. До начала каникул остается 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.