Написать программу которая по номеру дня недели выдаст название дня и количество уроков в вашем классе .В Паскале .Ps уроков у нас 6 каждый день .кроме среды. в среду 7 уроков

Пронумеруем дни недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб). var   dow:0..6; begin   Write('Введите номер дня недели (0-Вс, 6-сб): ');   Read(dow);   case dow of   0:Writeln('Воскресенье, выходной');   1:Writeln('Понедельник, 6 уроков');   2:Writeln('Вторник, 6 уроков');   3:Writeln('Среда, 7 уроков');   4:Writeln('Четверг, 6 уроков');   5:Writeln('Пятница, 6 уроков');   6:Writeln('Суббота, 6 уроков');   else Writeln('Введено неверное значение')   end end. Тестовое решение: Введите номер дня недели (0-Вс, 6-сб): 5 Пятница, 6 уроков

Program al; Var   x: integer; BEGIN Repeat Write('VVedite cislo ot 1 äî 7: ');  Readln(x); until x in [1..7]; Case x of   1: Writeln('Ponidelnik-6urokov');   2: writeln('Vtornik-6erokov');   3: writeln('Sreda-7urokov');   4: writeln('Cetverg-6urokov');   5: writeln('Piatnita-6urokov');   6: writeln('Subbota-6urokov');   7: writeln('Voskresenie-vihadnoy'); end; Readln END.