Павлин
5 год назад
Пожалуйста !!!!!!!!!! Срочно !!!!!!!!!!!!!!!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.(мне нужен правильный ответ )
ОТВЕТЫ
Валерьян
Oct 24, 2020
Полная программа будет выглядеть так:
Var D : integer;
week, day: integer;
Begin
Readln (D);
week := D div 7 ;
day := D mod 7;
writeln (‘Всего ’ week, ’недель и ’ , day, ‘ дней’ );
End.
346
Смежные вопросы:
