Ответ получается 2170 на компиляторе pascal.ABC
Program n1;
var n,m,p,k: longint;
begin
write('введите n: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
K:=K+1;
m:=m div 10;
end;
writeln('кол-во цифр: ',K);
end.
Если Я правильно понял вопрос, то имеется виду конструктор класса.
Конструктор класса вызывается автоматически, когда создается объект данного класса
Например в С языках, зарезервированное слово <u>new</u> и является вызовом конструктора класса
160 120
(120+40)-(40×3)=40