Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Pascal ABC
Восстановить пароль Регистрация

Ответ Создать новую тему
 
16.09.2013, 21:37   #1
Programka
Новичок
Регистрация: 25.03.2013
Сообщений: 12
Репутация: 0 (0)
как посчитать количество цифр в числе? / Pascal ABC

как посчитать количество цифр в числе?
16.09.2013, 21:37
AdAgent
Объявления
16.09.2013, 22:16   #2
ermolay
Модератор
Регистрация: 04.12.2011
Сообщений: 3,738
Репутация: 3149 (2207)
Лучшие ответы: 124
как посчитать количество цифр в числе?

Код 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.
Другие темы раздела
найти ошибку в программе Pascal ABC
var r1, r2, x1, y1, x2, y2, c, rmin, rmax: real; begin write('Введите значения радиусов: '); readln(r1, r2); write('Введите координаты центра первой окружности: '); readln(x1, y1); write('Введите координаты второй окружности: '); readln(x2, y2);
Дано вещественное число X. Задача Pascal ABC
Дано вещественное число X. Вычислить f(x), если f=0, при y>2; если f=2, при y>2; -3y в остальных случаях. Заранее спасибо.
17.09.2013, 04:03   #3
Cyborg Drone
Модератор
Регистрация: 17.08.2012
Сообщений: 3,518
Репутация: 1653 (1357)
Лучшие ответы: 184
как посчитать количество цифр в числе? / Pascal ABC

Можно ещё и вот так, но, наверное, это ТС не пригодится.
Код 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.
17.09.2013, 04:03
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Python Как посчитать количество цифр в числе?
Для каждого пункта напишите функцию, возвращающую ответ. 0) Дано число, посчитайте количество цифр в числе. Например, 123456 -> 6 Подсказка: обратите внимание на то, что деление целочисленного значения на целочисленное значение является целочисленным, т.е. в результате отбрасывается дробная...
Python masasc 23.11.2013 22:37
PHP Посчитать количество цифр в натуральном числе
Помогите подкорректировать код <?php $number=1212; $a=gettype($number); function get($number) { if ($a=integer){ $length = (int) log10($number)+1;} else {
PHP для начинающих log in 20.05.2013 21:52
Delphi Посчитать количество цифр в десятичном числе
Написать программу, подсчитывающую количество различных цифр в десятичной записи натурального числа n. Помогите пожалуйста решить задачу!
Delphi для начинающих Жансая 13.01.2012 05:54
C++ нужно посчитать количество цифр 4 и 9 в данном числе
например, чтобы при вводе числа 14599 программа выдавала 3 помогите пожалуйста
С++ для начинающих edj 05.10.2011 21:37
C++ как посчитать количество повторений каждой из цифр в числе N*N
я очень плохо ориентируюсь на С++.Такой вопрос:можно числа переводить в строки?И если нет,то как осуществить решение задачи?Помогите, пожалуйста
С++ для начинающих Stryagina 15.09.2009 20:52
Опции темы

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

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