Ответ:
program abc;
var n,m,k,b:integer;
begin
readLn(n,m,k);
if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;
if b mod 2<>0 then writeLn(b)
else if b>=n then writeLn(b-1);
if (b mod 2=0) and (b<>n) then writeLn(b+1);
end.
Объяснение:
каждый символ можно записать двоичным кодом из 3 нуликов или единичек, поэтому каждый символ весит 3 бит, пароль из 12 символов весит 36 бит, 200 паролей весят 200*36=7200 бит, т.е. 7200/8=900 байт
Ответ: 900 байт
74=1001010
121=1111001
2014=11111011110
Var
flag,i,x,y:integer;
begin
x:=Random(0,99);
flag:=0;
for i:=1 to 10 do begin
write('Введите ваше число ');
readln(y);
if (x = y) then begin
flag:=1;
writeln('Дан правильный ответ!');
break
end
else
if (x < y) then
writeln('Попробуйте взять число поменьше')
else
writeln('Попробуйте взять число побольше');
end;
if flag = 0 then writeln('Все попытки исчерпаны');
end.
N=10
m=120
m получается после умножения 12 на n = 10