дано натуральное число. найти количество цифр этого числа. Pascal. цикл.

Question

дано натуральное число. найти количество цифр этого числа. Pascal. цикл.

Лидия Знаток (349), закрыт 11 лет назад

Answer 1

Если с циклом то вот рабочий вариант:
var
x,t:longint;
begin
write('введите число: ');
readln(x);
while x>=10 do begin
t:=t+1;
x:=x div 10 end;
write('количество цифр чисда: ',t+1);
readln;
end.

Answer 2

Капитан Гугл Искусственный Интеллект (146251) 11 лет назад

var a:integer;
begin
readln(a);
writeln(trunc(ln(a)/ln(10))+1)
end.

Источник: И при чем тут циклы?

Answer 3

Jurijus Zaksas Искусственный Интеллект (471500) 11 лет назад

readln(n);
writeln(trunc(ln(n)/ln(10))+1);

А цикл-то зачем?

Answer 4

var a, b : longint;
begin
readln(a);
b :=1;
repeat
if a > 10 then begin
b := b+1;
a := a div 10;
end
else break;
until false;
writeln(b);
end.

Answer 5

program erfiejr;

var

a, b : integer;

begin

a := 0;
writeln('Введите число.');
readln(b);

while b >= 1 do
begin
a := a + 1;
b := b div 10;
end;

writeln(a)

end.