Question

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

Answer 1

Ответ:

Объяснение:

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.

Answer 2

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.