Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 20.05.2012
Сообщений: 12
1

Delphi. Подсчитать количество цифр в десятичной записи натурального числа N.

14.10.2012, 18:36. Показов 1362. Ответов 2
Метки нет (Все метки)

Подсчитать количество цифр в десятичной записи целого неотрицательного числа N. Зарание спасибо)))
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2012, 18:36
Ответы с готовыми решениями:

Подсчитать количество различных цифр в десятичной записи натурального числа
2. Подсчитать количество различных цифр в десятичной записи натурального числа .

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

Описать функцию digits(n), подсчитывающую количество различных(значащих) цифр в десятичной записи натурального числа
Описать функцию digits(n), подсчитывающую количество различных(значащих) цифр в десятичной записи...

Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.

2
13074 / 5859 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
14.10.2012, 19:17 2
Лучший ответ Сообщение было отмечено Alena_0110 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
const
  Base = 10; //Основание десятичной системы счисления.
var
  Num, Cnt : Cardinal; //Longword;
begin
  Num := Abs(StrToInt(Edit1.Text));
  Cnt := 0;
  repeat
    Inc(Cnt);
    Num := Num div Base;
  until Num = 0;
 
  //Ответ.
  ShowMessage('Количество цифр в заданном числе: ' + IntToStr(Cnt));
end;
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
14.10.2012, 20:04 3
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Кол-во цифр: ' + IntToStr(Length(Edit1.Text)));
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2012, 20:04

Определить, сколько различных цифр в десятичной записи натурального числа
Определить, сколько различных цифр в десятичной записи натурального числа

Подсчитать количество различных цифр в десятичной записи натурального числа
подсчитать количество различных цифр в десятичной записи натурального числа.помогите

Подсчитать количество различных цифр в десятичной записи натурального числа
Тема: Строки.Множества. 3.2. Подсчитать количество различных цифр в десятичной записи натурального...

Подсчитать количество различных цифр в десятичной записи натурального числа
Тема: Строки.Множества. 3.1. Напишите программу, которая вводит строку и выводит ее, сокращая...

Подсчитать количество различных цифр в десятичной записи натурального числа
помогите написать программу

Подсчитать количество различных цифр в десятичной записи натурального числа.
Подсчитать количество различных цифр в десятичной записи натурального числа.


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

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

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