Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Dmc94
5 / 5 / 1
Регистрация: 13.01.2010
Сообщений: 21
#1

Число цифр - Pascal

26.02.2010, 14:58. Просмотров 343. Ответов 2
Метки нет (Все метки)

Как найти количество цифр в данном числе?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2010, 14:58
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Число цифр (Pascal):

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

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

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

Дано натуральное число, верно ли что цифр а больше чем цифр б - Pascal
Дано натуральное число, верно ли что цифр а больше чем цифр б??(через div и mod )как сделать?

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

Найти такое число, что сумма его цифр превосходит произведение цифр этого же числа на 1 - Pascal
сумма цифр заданного четырехзначного N превосходит произведение цифр этого же числа на 1. ПОМОГИТЕ ПОЖАЛУЙСТА

2
Inadequate
Retired
7707 / 2540 / 184
Регистрация: 17.10.2009
Сообщений: 5,106
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.
2
Puporev
Модератор
51979 / 39837 / 13229
Регистрация: 18.05.2008
Сообщений: 91,640
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;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2010, 15:25
Привет! Вот еще темы с ответами:

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

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. - Pascal
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число...

Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие числа. - Pascal
Написать программу : Дано нат. число. Верно ли что число 4-значное и у него сумма крайних цифр равна сумме средних цифр? Найти все такие...

Вывести те слова, у которых число четных цифр превышает число нечетных - Pascal
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). В качестве символов могут использоваться только арабские...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru