Перевести ** язык Паскаля

Question

Перевести на язык Паскаля

---

Answer 1

Var a,c:integer;begin a:=1; c:=0;while a <> 1024 do beginif a <> 1024 then beginc:=c+1; a:=a*2;end;end;writeln(c); end.

Comments

var a,c:integer;
begin
a:=1;
c:=0;
while a <> 1024 do begin
if a <> 1024 then begin
c:=c+1;
a:=a*2;
end;
end;
writeln(c);
end.