дано натуральне число n визначити кількість цифр у цьому числі
Паскаль. Робити на рівні 10 класу
Ответы на вопрос
Ответил musa1399
0
var m, n: longint; k: integer;beginreadln(n);
m:=n;k:=0;
while m <>0 do begin k:=k+1; m:= m div 10; end;
writeln('B числе ',n,'- ',k, ' цифр!'); readln;end.
m:=n;k:=0;
while m <>0 do begin k:=k+1; m:= m div 10; end;
writeln('B числе ',n,'- ',k, ' цифр!'); readln;end.
Новые вопросы