Форум программистов, компьютерный форум 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 Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр

Turbo Pascal Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Ес

Pascal Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.

Turbo Pascal Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно по

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

Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.

Pascal ABC Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр

Pascal Дано натуральное число, верно ли что цифр а больше чем цифр б

Pascal Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр

Pascal ABC Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр

Inadequate
Retired
7683 / 2577 / 63
Регистрация: 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
Модератор
43150 / 31521 / 2132
Регистрация: 18.05.2008
Сообщений: 67,484
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    Число цифр
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 14:21. Часовой пояс GMT +4.
Поиск по форуму с помощью Yandex и Google
Loading
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.