Turbo Pascal

[Jasper92]

К примеру 100
a:=xdiv100
b:=xmod100div10
c:=xmod10

[Скандербег]

Sazary, а я вот не могу понять чего человеку надо. Что он подразумевает под понятием "чисел в числе". А вы догадались?

[Jasper92]

100 состоит из 3 чисел
мне надо чтобы при вводе 1000 ответ выхадил 4

[Sazary]

Сообщение от Скандербег

Sazary, а я вот не могу понять чего человеку надо. Что он подразумевает под понятием "чисел в числе". А вы догадались?

ТС нужно количество цифр ) К сожалению, не все умеют корректно задавать вопросы.

Сообщение от Jasper92

100 состоит из 3 чисел
мне надо чтобы при вводе 1000 ответ выхадил 4

Вы издеваетесь? Чем вас не устраивает решение, приведенное выше?
А вообще, при такой формулировке, это будет выглядеть так:

readln(N);
if N=100 then writeln(3);
if N=1000 then writeln(4);

[koma_grusha]

а че строкой так и нереально?

[koma_grusha]

я просто уже не помню есть ли в паскале такие функции или аналогичные.
типа

Length(IntToStr(n))

где n - твое число

[Sazary]

Сообщение от koma_grusha

я просто уже не помню есть ли в паскале такие функции или аналогичные.

Str(N,s);
writeln(length(s));

ps Уже 2 страницы.. Мда.. И это по задаче, которая пишется тут практически каждый день (сама по себе или как часть других задач)

-----------------------
<к посту ниже>
Serge_Bliznykov, интересный вариант )

[Serge_Bliznykov]

ps Уже 2 страницы.. Мда.. И это по задаче, которая пишется тут практически каждый день (сама по себе или как часть других задач)

ну, раз пошла такая пьянка..
и я свой код представлю. до кучи
(работает на основании свойств десятичного алгоритма).

{$N+}
var
  n:double;
begin
  writeLn;
  write('Vvedite chislo: ');
  readln(n);
  WriteLn('Kolichestvo ciferok: ',(trunc(ln(n)/ln(10))+1):1);
end.