cablys

sveiki nelabai suprantu paskalio(t.y. visai nesuprantu)paaiskinkit issamiai jei galit. pvz.: Parasykite programa ar galima skaiciu isreiksti dvejeto laipsniu ir koks tai laipsnis.
 
nu va cia padaryta klaseje bet nesuprantu kuri eilute ka daro ir kaip ta daro.
 
program bevarde;
var n,i,san:integer;
begin
writeln ('ivesk n');
read(n);
i:=1; san:=2;
while san<n do
begin
san:=san*2
i:=i+1
end.
if san:=n then writeln (i' laipsniu')
else writeln ('nera');
readln(i);
end.
 
 
 
PADEKIT SUPRAST KA CIA PARASIAU ;)