Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Dmc94
Новичок
5 / 5 / 1
Регистрация: 13.01.2010
Сообщений: 21
26.02.2010, 14:58     Число цифр
  #1
Как найти количество цифр в данном числе?
AdAgent
Объявления
26.02.2010, 14:58
Inadequate
Retired
7682 / 2576 / 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
Модератор
42375 / 30889 / 1856
Регистрация: 18.05.2008
Сообщений: 65,841
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;
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Ответов Автор Дата
Pascal ABC Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр
Дано трехзначное число.Найти: число единиц в нем , число десятков в нем , сумму его цифр , произведение его цифр
Pascal ABC 1 Templear 07.04.2014 16:20
Pascal Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. Подсчитать в этом числе количество нулей, единиц, двоек...
Pascal (Паскаль) 1 Max051096 14.01.2014 14:50
Pascal ABC Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр
помогите студентке:cry: Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр.Например: 457961 4+5+7 = 9+6+1. Вывести на экран все...
Pascal ABC 2 Margosham-k 29.12.2011 16:12
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
1)Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр. Пример, 201304, результат 234. 2)Последовательно вводятся числа, найти их...
Pascal ABC 2 _Camelot 10.11.2011 17:20
Turbo Pascal Найти сумму цифр исходного числа, затем сумму цифр полученной суммы и т.д до тех пор пока сумма цифр не будет представлять собой однозначное число
Найти сумму цифр исходного числа, затем сумму цифр полученной суммы и т.д до тех пор пока сумма цифр не будет представлять собой однозначное число. В чём ошибка Program qq; var...
Turbo Pascal 5 Yala1 01.03.2011 16:07
Turbo Pascal Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно по
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получить 651. (помогите пожалуйста кто может,а то...
Turbo Pascal 2 пока что чайник 27.02.2011 21:02
Pascal Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Помогите пожалуйста составить программу
Pascal (Паскаль) 2 Lissa_kamcha 06.10.2010 17:52
Pascal Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр
Pascal (Паскаль) 6 Машуня 28.10.2008 00:53
Опции темы

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