Utilizind urmatoarele programe Pascal:

Program P2;
var n; nc: 0 … maxint;
begin
readln (n);
nc:= 0
while n>0 do
begin
n:= n div 10;
nc:= nc+1;
writeln (‘nc’);
end.
Program P3;
var n; nc: 0 … maxint;
begin
readln (n);
nc:= 0
repeat
n:= n div 10;
nc: nc+1
until n=0;
writeln (‘nc’);
end.
Program P4;
var n; nc: 0 … maxint;
begin
readln (n);
if n:=o then nc:=1
else begin
nc:=0
while n>0 do
begin
n:= n div 10;
nc:= nc+1
end;
end;
writeln (‘nc’);
end.
Determinati valorile afisate in urma executiei programelor P2; P3 pentru n=12 si n=0 in tabelul ce urmeaza:
n=12 n=0
P2
P3
Completati rezultatele si explicati cauza rezultatelor identice si a celor diferite.
Selectati din programele P2; P3 cel care este echivalent din punct de vedere al executiei rezultatului cu P4 pentru orice numar natural dat lui n.
(Mersi anticipat de ajutor)