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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
