Question

Transcrieti acest program din C++ în Pascal..
Urgent..​​

Answer 1

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