Вопрос, который вызвал трудности
Подсчет числа часов рабочей недели (программа Паскаль)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
program WORKTIME;
type DAYS = (MO, TU, WE, TH, FR, SA, SU);
var DEN: DAYS; WT: integer;
begin
WT := 0;
for DEN := MO to SA do
if DEN <> SA then WT := WT + 8
else WT := WT + 7; writeln (WT);
end.
type DAYS = (MO, TU, WE, TH, FR, SA, SU);
var DEN: DAYS; WT: integer;
begin
WT := 0;
for DEN := MO to SA do
if DEN <> SA then WT := WT + 8
else WT := WT + 7; writeln (WT);
end.