Ребята Обращаюсь к тем,кто понимает Паскаль! Информатика,8 клас​

Объяснение:

Var n,m,p,k:longint;

Begin

read(n);

m:=n;

k:=0;

while m<>0 do begin

p:=m mod 10;

K:=K+1;

m:=m div 10;

end;

writeln('k=',k);

end.

Var n,m,p,k:longint;

Begin

read(n);

m:=n;

k:=0;

while m<>0 do begin

p:=m mod 10;

K:=K+1;

m:=m div 10;

writeln('k=',k);

end.