Question

Se consideră un număr întreg X. Scrie un program utilizând o funcție care va determina numărul de cifre al numărului X. În PASCAL vă rog.

Answer 1

Răspuns:

Program NrDeCifre;

var c,r,x : integer;

begin

writeln('Introduceți numărul:');

readln(x);

while x<>0 do

begin

r:=x mod 10;

c:=c+r;

x:=x div 10;

end;

writeln('Numărul de cifre:');

readln(c);

readln;

end.

Explicație: