Question

Дано натуральное число n. Определить количество цифр в том числе. ( Pascal)
​

Answer 1

Ответ:

var n:real; i:integer;

begin

read(n);

i:=0;

repeat

n:=n/10;

i:=i+1;

until abs(n)<1;

writeln(i);

end.

Объяснение:

да