Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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
Модератор
42223 / 30737 / 1800
Регистрация: 18.05.2008
Сообщений: 65,429
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 Templear 07.04.2014 16:20
Pascal Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. Подсчитать в этом числе количество нулей, единиц, двоек...
Pascal (Паскаль) Max051096 14.01.2014 14:50
Pascal ABC Говорят, что число "Счастливое" если сумма цифр левой половины числа равна сумме цифр правой половины числа. если число имеет нечетное количество цифр
Люди помогите написать программу, буду очень благодарный!!! Говорят, что число "Счастливое" если сумма цифр левой половины числа равна сумме цифр правой половины числа. если число имеет нечетное...
Pascal ABC xumera 17.11.2013 10:49
C++ Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. помогите пожалуйста.
С++ для начинающих Серый \ 25.11.2012 14:04
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
1)Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр. Пример, 201304, результат 234. 2)Последовательно вводятся числа, найти их...
Pascal ABC _Camelot 10.11.2011 17:20
C++ Builder Установить, четным или нечетным является число цифр в записи данного натурального числа. Если число цифр нечетно, вывести среднюю цифру
Уважаемые программисты помогите написать программу...у меня завал( "Установить, четным или нечетным является число цифр в записи данного натурального числа. Если число цифр нечетно, вывести...
C++ Builder Vladimir6406 15.12.2010 20:15
Pascal Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Помогите пожалуйста составить программу
Pascal (Паскаль) Lissa_kamcha 06.10.2010 17:52
C++ Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
С++ для начинающих anwar_uz 22.03.2009 13:10
Опции темы

Текущее время: 06:06. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.