Количество цифр числа.

@RainVoice · Регистрация: 01.12.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте у меня проблема просто не выходит додуматься как сделать вот такую вещь Чтобы написать число к примеру 5498 и он вывел количество чисел то есть 4...Но нужно сделать через цикл repeat until думаю это будет выглядеть так Что число
n=362
n:=n div 10 =36
36 div 10 =3
3 div 10 =0
Но как это оформить я не знаю может поможете советом или покажете небольшие наработки?

PS:Я понимаю что форум наводнили школота и неадекваты но мне ненужен готовый материал (хотя отказываться не буду)) Мне нужен просто совет, образец или еще что нибудь...

@o-user · 01.12.2009, 17:20

Воодите число в строковую переменную и выводите длину строки: length() - это и будет количество цифр в числе!

@RainVoice · 01.12.2009, 17:31 **[ТС]**

Эээ честно говоря это неподходит я просто незнаю всего этого мне нужно площе как то оформить)Просто боюсь мы этого еще не изучали)Мне ведь нужно использовать цикл)

@Puporev · 01.12.2009, 17:34

Pascal
1
2
3
4
5
6
k:=0;
while n>0 do
 begin
  n:=n div 10;
  k:=k+1;
 end;

@RainVoice · 01.12.2009, 17:38 **[ТС]**

Странно, по заданию цикл while нельзя использовать,пишут только repeat until...Я конечно в тебе не сомневаюсь но можно ли как нибудь через repeat сделать?Или впрочем выглядеть будет так же только пока к не станет равно 0?Или это по другому?

@o-user · 01.12.2009, 17:38

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

Эээ честно говоря это неподходит я просто незнаю всего этого мне нужно площе как то оформить)Просто боюсь мы этого еще не изучали)Мне ведь нужно использовать цикл)

А что может быть проще:

Pascal
1
2
3
   writeln('Введите число');
   readln(s);
   writeln('Цифр в числе=',length(s))

???

@RainVoice · 01.12.2009, 17:43 **[ТС]**

Просто Это слишком элегантно для нашей программы обучения)увы но нас просят прописывать через топорные циклы(

@yanyk1n · 01.12.2009, 17:45

Pascal
1
2
3
4
5
k:=0;
  repeat
  n:=n div 10;
  k:=k+1;
  until n=0;

@Puporev · 01.12.2009, 17:47

k1ry4, А как может быть n<0?

@RainVoice · 01.12.2009, 17:50 **[ТС]**

k1ry4, Спасибо после примера Puporev, я так и предполагал)Спасибо дальше уже просто нужно просто запросить число)Спасибо ребят вам всем)Я и не думал что все так просто=)

Добавлено через 1 минуту
k1ry4, Ну там понятно что n=0) это у меня даже в подсказке прописано)

@yanyk1n · 01.12.2009, 17:51

Puporev, repeat'ом редко пользуюсь, но руководствуюсь правилом:
while A do <==> util not A

@Puporev · 01.12.2009, 17:53

not для трех вариантов не подходит.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@RainVoice 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12

	Количество цифр числа. 01.12.2009, 17:15. Показов 2997. Ответов 11 Метки нет (Все метки) Здравствуйте у меня проблема просто не выходит додуматься как сделать вот такую вещь Чтобы написать число к примеру 5498 и он вывел количество чисел то есть 4...Но нужно сделать через цикл repeat until думаю это будет выглядеть так Что число n=362 n:=n div 10 =36 36 div 10 =3 3 div 10 =0 Но как это оформить я не знаю может поможете советом или покажете небольшие наработки? PS:Я понимаю что форум наводнили школота и неадекваты но мне ненужен готовый материал (хотя отказываться не буду)) Мне нужен просто совет, образец или еще что нибудь... 0

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	01.12.2009, 17:20
	Воодите число в строковую переменную и выводите длину строки: length() - это и будет количество цифр в числе! 0

@RainVoice 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12
	01.12.2009, 17:31 [ТС]
	Эээ честно говоря это неподходит я просто незнаю всего этого мне нужно площе как то оформить)Просто боюсь мы этого еще не изучали)Мне ведь нужно использовать цикл) 0

@RainVoice 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12
	01.12.2009, 17:38 [ТС]
	Странно, по заданию цикл while нельзя использовать,пишут только repeat until...Я конечно в тебе не сомневаюсь но можно ли как нибудь через repeat сделать?Или впрочем выглядеть будет так же только пока к не станет равно 0?Или это по другому? 0

@RainVoice 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12
	01.12.2009, 17:43 [ТС]
	Просто Это слишком элегантно для нашей программы обучения)увы но нас просят прописывать через топорные циклы( 0

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.12.2009, 17:47
	k1ry4, А как может быть n<0? 0

@RainVoice 0 / 0 / 0 Регистрация: 01.12.2009 Сообщений: 12
	01.12.2009, 17:50 [ТС]
	k1ry4, Спасибо после примера Puporev, я так и предполагал)Спасибо дальше уже просто нужно просто запросить число)Спасибо ребят вам всем)Я и не думал что все так просто=) Добавлено через 1 минуту k1ry4, Ну там понятно что n=0) это у меня даже в подсказке прописано) 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	01.12.2009, 17:51
	Puporev, repeat'ом редко пользуюсь, но руководствуюсь правилом: while A do <==> util not A 0

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.12.2009, 17:53
	not для трех вариантов не подходит. 0