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

@Alena_0110 · Регистрация: 20.05.2012

Author24 — интернет-сервис помощи студентам

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

@Mawrat · 14.10.2012, 19:17

Delphi

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;

@FIL · 14.10.2012, 20:04

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Кол-во цифр: ' + IntToStr(Length(Edit1.Text)));
end;

@Alena_0110 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 12
		1
	Delphi. Подсчитать количество цифр в десятичной записи натурального числа N. 14.10.2012, 18:36. Показов 1544. Ответов 2 Метки нет (Все метки) Подсчитать количество цифр в десятичной записи целого неотрицательного числа N. Зарание спасибо))) 0

	14.10.2012, 20:04

Опции темы

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

Решение