Răspuns:
Nr.1
varianta corecta a
Nr.2
varianta corecta a
i:=0*10+1 = 1
n:=731 : 10=73 (div afiseaza catul impartirii)
while merge pana cand n nu va fi mai mare ca 0 n>0
i:=0*10+3= 3
n:=73 :10 =7
while mege deoarece n=7 si este mai mare ca 0
i:=0*10+7=7
n:=7 : 0= 0
deci rezultatul = 137
programul
var
n, i: integer;
begin
n := 731; i := 0;
while n > 0 do
begin
i := i * 10 + n mod 10;
n := n div 10;
end;
write(i);
end.
Nr.3
varianta corecta b
daca n=235 atunci va afisa 3 deoarece are 3 cifre
Nr.4
a) programul va afisa 3 va lasa 2 spatii si 9 ( 3 9 )
b) pentru a:=5 nu va afisa nimic deoarece 5 ridicat la patrat este 25
