Var
x, n: integer;
begin
x := 1;
readln(n);
while x*x <= n do
begin
writeln(x);
x := x + 1;
end;
end.
Найдите десятичный код чисел : 1001,1000,1011,110,1100,111,10,11,1010,100,101. Заранее спасибо!!
ZilotSS [589]
1001 = 9
1000 = 8
110 =6
1100 = 12
111 = 7
10 = 2
11 = 3
1010 = 10
100 = 4
101 = 5
O__o
var
i, s : Integer;
begin
for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;
Readln;
end.
Дано: решение:
N-128 N=2^i
2^7=2^i
i-? 7=i
<span> ответ: 7бит
</span>
Там нету такой маленькой верандочки и всё вроди...