Var
mj,max,i,j,m,n:integer;
mas:array[1..999,1..999] of integer;
begin
randomize;
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(mas[i,j]);
for i:=1 to m do
begin
mj:=-maxint;
max:=-maxint;
for j:=1 to n do
if mas[i,j] > max then
begin
mj:=j;
max:=mas[i,j];
end;
writeln('[',i,';',mj,'] = ',max);
end;
end.
10-2=8 русских букв
N=2^i
8=2^i
i=3 бита(для одной русской буквы)
У нас их 8, тогда 8*3=24 бита на все русские буквы
2=2^i
i=1 бит на одну английскую букву
Их две
1*2=2 бита на все английские буквы
24+2=26 бит на весь пароль
Всего таких паролей 12:
26*12=312 бит=39 байт
Нажми на саму ячейку и вверху в тоненькой (под раскладкой) строке будет формула.
Const
n = 20;
var
i, imax, j, x: integer;
a: array[1..n]of integer;
begin
for i := 1 to n do
a[i] := random(100);
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
x := a[i];
a[i] := a[imax];
a[imax] := x;
end;
for i := 1 to n do
write(a[i],' ');
writeln();
writeln(imax);
end.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var k:integer;
begin
writeln('Введите k ');
readln(k);
if (k<0)or (k mod 4<>0) then writeln(abs(k+5))
else writeln (sqr(k)+5);
end.