paskalis

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 ;)

Pamėginsiu paaiškint :unsure:

program bevarde; {čia yra pradžia ir joje rašomas program ir programos pavadinimas }

var n,i,san:integer; {čia rašomi kintamieji po žodžio var integer reiškia kad skaičius bus sveikasis}

begin {pradedama programa }

writeln ('ivesk n'); {į ekraną išvedamas žodis ivek n}

read(n); {skaitomas n iš ekrano}

i:=1; san:=2; {nustatomos kintamuju reikšmės}

while san<n do {salyga kol san mažiau už n kompiuteris darys zemiau nurodytas uzduotis }

begin {pradedamas ciklas}

san:=san*2 {sandauga dauginama iš 2}

i:=i+1 {prie kintamojo i kiekvieną kart pridedamas po 1}

end. {ciklo pabaiga}

if san:=n then writeln (i' laipsniu') {sąlygos sakinys}

else writeln ('nera'); {jei sąlyga neteisinga rašomas žodis 'nera'}

readln(i); {skaitomas i iš ekrano}

end. {na o šita manau tureėtum suprast :blink: }

Kiek pats supratau tiek paaiškinau. :( jei yra klaidu taisykit <_<