Ответ :90С нужно просто 2316 постоянно делить на 16
Ответ:
ну вот както так)))) решение понятно?
Пронумеруем дни недели числами от 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.
<u><em>Тестовое решение:</em></u>
Введите номер дня недели (0-Вс, 6-сб): 5
Пятница, 6 уроков
Const N = 5;
Var m:array [1..N, 1..N] of integer; j,S,i:integer;
Begin
S:=0;
for i:=1 to N do
for j:=1 to N do begin
readln(m[i,j]); S:=S+m[i,j]; end;
writeln(S);
readln;
end.