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

Question

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

---

Comments

Обращаюсь к тем,кто понимает Паскаль ... и украинский язык.

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.

Comments

лучше прост спасибо нажми

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.