1
Укажите целое число от 64 до 67, двоичная запись которого содержит ровно две единицы.
Если таких чисел несколько, укажите наибольшее из них.

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.