Răspuns:
program NrCifre;
var nr, c, cif: integer;
begin
c:=1;
write('introdu nr natural: ');read(nr);
while (nr>10) do
begin
cif:=nr mod 10;
inc(c);
nr:=nr div 10;
end;
writeln('numarul are ',c,' cifre');
end.
Explicație:
Codul din imagine pentru nr introdus 0, ce răspuns va da???
am modificat puțin logica codului...
Succese! sper că te-am ajutat
