Форум программистов, компьютерный форум 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 Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Pascal Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Turbo Pascal Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно по
Turbo Pascal Найти сумму цифр исходного числа, затем сумму цифр полученной суммы и т.д до тех пор пока сумма цифр не будет представлять собой однозначное число
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
Pascal ABC Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр
Pascal Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Pascal ABC Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр

Поиск по форуму:
Inadequate
Retired
7685 / 2579 / 64
Регистрация: 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
Модератор
43790 / 32141 / 2401
Регистрация: 18.05.2008
Сообщений: 68,951
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     Число цифр
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

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