Ответы
Ответ дал:
0
var n:integer;
begin
Writeln('Введите количество дней: ');
Read(n);
Writeln(n, ' дней(я) = ', n div 7, ' недель ', n mod 7, ' дней(я)');
end.
Вас заинтересует
1 год назад