Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Dmc94
Новичок
5 / 5 / 1
Регистрация: 13.01.2010
Сообщений: 21
26.02.2010, 14:58     Число цифр #1
Как найти количество цифр в данном числе?
AdAgent
Объявления
26.02.2010, 14:58     Число цифр
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2010, 14:58     Число цифр
Посмотрите здесь:

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр Pascal
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Pascal
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
Pascal ABC Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр
Вводится пятизначное число, нужно найти сумму его цифр и произведение цифр Turbo Pascal
Pascal Дано натуральное число, верно ли что цифр а больше чем цифр б
Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр Pascal
Найти в числе число единиц, число десятков, сумму цифр, произведение цифр Pascal ABC


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

Или воспользуйтесь поиском по форуму:
Inadequate
Retired
7689 / 2549 / 90
Регистрация: 17.10.2009
Сообщений: 5,112
26.02.2010, 15:07     Число цифр #2
Код Pascal
1
2
3
4
5
6
7
8
9
var
  N: integer;
  s: string;
begin
  ReadLn(N);
  Str(abs(N), s);
  WriteLn(Length(s));
  ReadLn
end.
Puporev
Модератор
 Аватар для Puporev
45978 / 34203 / 4980
Регистрация: 18.05.2008
Сообщений: 74,864
26.02.2010, 15:25     Число цифр #3
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
var n,m:longint;
     k:byte;
begin
readln(n);
m:=n;
k:=0;
while m>0 do
 begin
  m:=m div 10;
  k:=k+1;
 end;
Yandex
Объявления
26.02.2010, 15:25     Число цифр
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

Текущее время: 19:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2015, vBulletin Solutions, Inc.
Яндекс.Метрика