Принтер- предмет на котором сканируют
монитор- предмет на котором выводят исходное значение
Вопросы должны, как мне кажется, задаваться следующим образом:
1) N = 1.
2) В какой половине алфавита находится N-я буква?
3) В какой половине из этой части находится N-я буква?
... и т.д. пока не дойдём до самой буквы, т.е. потребуется 5 вопросов на каждую букву (2^5 = 32).
Таким образом, всего – 5*5 = 25 вопросов.
1. Для цикла For
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
s:=0; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
end.
Пример:
Массив A:
18 22 5 50 18 23 48 2 22 26
s = 234 min = 2
N=2^i
256=2^8
i=8 (один символ кодируется восемью битами или одним байтом)
I=ki=256*1=256 байт