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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Programka
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 16
#1

Посчитать количество цифр в числе - Pascal ABC

16.09.2013, 21:37. Просмотров 762. Ответов 2
Метки нет (Все метки)

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

Посчитать количество цифр 7 в каждом числе - Pascal ABC
здравствуйте, подскажите пожалуйста с задачей: дано 5 чисел. посчитать количество цифр 7 в каждом числе. заранее спасибо)

Вывести на экран сумму цифр и количество нечетных цифр в заданном числе - Pascal ABC
Пожалуйста помогите решить 3 задачи, буду примного благодарен! 1. Дано целое положительное число. Вывести на экран сумму цифр в этом...

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

Количество цифр в числе - Pascal ABC
Доброго времени суток! Хотела бы попросить у вас помощи вот с такой задачей: "Составьте программу с использованием процедуры, вычисляющей...

Определить количество цифр в числе - Pascal ABC
Дано натуральное число. Определить: количество цифр в нем

Подсчитать количество цифр в числе - Pascal ABC
Всем привет ... Будьте добры , Практическая =) 3.С клавиатуры вводится натуральное число N . Программе подсчитать количество цифр в...

2
ermolay
3419 / 2358 / 685
Регистрация: 04.12.2011
Сообщений: 3,961
16.09.2013, 22:16 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a,k: integer;
begin
  write('Ââåäèòå ÷èñëî: ');
  readln(a);
  while abs(a)>0 do
  begin
    a:=a div 10;
    inc(k);
  end;
  writeln('Г–ГЁГґГ° Гў ÷èñëå: ',k);
  readln;
end.
0
Cyborg Drone
Модератор
4733 / 2900 / 1133
Регистрация: 17.08.2012
Сообщений: 9,231
17.09.2013, 04:03 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Можно ещё и вот так, но, наверное, это ТС не пригодится.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program NumNum;
 
var i: Integer;
 
begin
  write('Enter number: ');
  readln(i);
  write('Digits count: ');
  if i <> 0 then writeln(1 + trunc(ln(abs(i))/ln(10)))
            else writeln(1);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.09.2013, 04:03
Привет! Вот еще темы с ответами:

Подсчитать количество цифр в числе - Pascal ABC
С клавиатуры вводится натуральное число П.Узнайте в нём количество цифр

Определить количество цифр 3 в числе - Pascal ABC
1.3 Дано натуральное число. Определить количество цифр 3 в нем. 2.3 Дано натуральное число. Определить произведение его цифр, больших 7. ...

Найти количество цифр в числе - Pascal ABC
Здравствуйте, помоги, пожалуйста написать функцию, которая считает кол-во цифр в числе, чтобы не выдало ошибку при вводе 11+ символов

Количество заданных цифр в числе - Pascal ABC
Подсчитать количество цифр a в числе N. Технические условия Входные данные В первой строке записано одно целое...


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

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

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