Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
0 / 0 / 0
Регистрация: 25.09.2013
Сообщений: 36

Ввести число от 0 до 1000. Определить количество цифр в числе

04.11.2013, 17:10. Показов 5117. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ввести число от 0 до 1000. Определить количество цифр в числе
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.11.2013, 17:10
Ответы с готовыми решениями:

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество...

Ввести последовательность чисел, окончание ввода число 1000, определить количество отрицательных и минимум
2) Пользователь вводит последовательность чисел, окончание ввода число 1000, определить количество отрицательных чисел и минимум.

Дано целое число А. Определить количество цифр в числе, которые меньше 5
Ребят, помогите решить задачу на паскале(желательно через Repeat): Дано целое число А. Определить количество цифр в числе, которые меньше 5.

2
2022 / 1621 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
05.11.2013, 02:58
Лучший ответ Сообщение было отмечено Lamike как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program ConsoleApp;
 
{$I+}
 
function DigitsCount(x: Integer): Integer;
  var count: Integer;
begin
  (*x >= 0*)
  count:= 1;
  while x >= 10 do begin
    Inc(count);
    x:= x div 10
  end;
  DigitsCount:= count
end;
 
(*----------------------------*)
  var x: Integer;  
begin
  repeat
    Write('x = ');
    ReadLn(x)
  until (x >= 0) and (x <= 1000);
  WriteLn('Result: ', DigitsCount(x));    
end.
0
 Аватар для ПерС
587 / 490 / 371
Регистрация: 05.11.2013
Сообщений: 1,271
Записей в блоге: 6
05.11.2013, 09:54
ну, если следовать условию, то

Pascal
1
2
3
4
if n<10 then count:=1
else if n<100 then count:=2
else if (n<1000) then count:=3
else count:=4;
или лучше

Pascal
1
2
3
string s[5];
str (n,s);
count:=length(s);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.11.2013, 09:54
Помогаю со студенческими работами здесь

Определить количество цифр в числе
проблема не могу решить &quot;Дано целое число (А). Определить количество цифр в числе который меньше 5&quot; и вторая задача &quot; Дано...

Задано целое число N. Подсчитать количество цифр в числе.
Срочно !)

Является ли число палиндромом, если количество цифр в числе больше 10
1) Составить алгоритм является ли число полиндромом, если кол-во цифр в числе больше 10 2)Решение кубического уравнения. 3)Нахождение...

Определить количество цифр в каждом заданном числе
Составить программу для решения задачи своего варианта с использованием методов-процедур и функций (самостоятельно продумать, какие...

Определить количество различных рядом стоящих пар цифр в числе
Помогите пожалуйста 1) Дано натуральное число из N цифр. Определить количество различных рядом стоящих пар цифр в этом числе....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru