Дано: fori:=20downto3do

i изменяется от
до
с шагом

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

нельзя, ведь текст отсканирован а не скопирован!

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.