Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
Двоичная:<span>1011111001
Восьмиричная:</span><span>1371
Шеснадцатеричная:</span><span>2F9</span>
Program Pr1;
uses crt;
var mas:array[1..7,1..7] of real;
var i,j,v:integer;
Begin
clrscr;
v:=7;
randomize;
for i:=1 to 7 do
for j:=1 to 7 do mas[i,j]:= random(20)-10;
for i:=1 to 7 do begin
for j:=v to 7 do mas[i,j]:=0;
v:=v-1;
end;
for i:=1 to 7 do
for j:=1 to 7 do begin
gotoxy(j,i);
write(mas[i,j]);
end;
end.
в кино ходили 14 человек, в музей 14 человек, 2 человека не ходили никуда