Turbo Pascal

[Jasper92]

Помогите пожалуйста решить задачу
Найти количество чисел в числе
Например 100-3
1000-4

[koma_grusha]

переведи в строку и посчитай длину, или посчитай количество десятков, сотен и т.п.

[Jasper92]

так если число миллион то расписывать замучиешся

[Sazary]

так если число миллион то расписывать замучиешся

Так а циклы на что?

[Jasper92]

число вводится с экрана

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

Вопрос задан не совсем корректно.
Если речь идет о числах в числе, то в числе 100 их ровно сто, а в числе 1000 - ровно тысяча, т.е. ничего считать не надо - само число и показывает сколько чисел в числе.
Если вопрос все же о количестве цифр, составляющих число, см. ответ выше.
А что значит "расписывать"?
А может быть не с экрана, а с клавиатуры?

[Jasper92]

Мне надо написать программу: с экрана в водишь число в нем надо подсчитать сколько всего чисел (Количество) т.е. число 100 количество чисел 3

[Sazary]

число вводится с экрана

Очень хотел бы на это посмотреть.

Без разницы откуда берется число. В любом случае оно окажется в переменной.

count := 0;
while N>0 do
 begin
 inc(count);
 N := N div 10;
 end;

[Jasper92]

т.е. предлагете расписывать числа?

[Sazary]

т.е. предлагете расписывать числа?

Вам уже задали вопрос: что, по-вашему, значит "расписывать"?
Цикл выше. Это то, что вам нужно.