Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Pascal ABC
Восстановить пароль Регистрация

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

как посчитать количество цифр в числе?
Старый 16.09.2013, 22:16   #2
ermolay
Модератор
 
Аватар для ermolay
 
Регистрация: 04.12.2011
Сообщений: 3,577
Репутация: 3067 (2125)
Лучшие ответы: 66
Код 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. Программирование на Pascal ABC. Помощь в решении задач.
найти ошибку в программе 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
Сообщений: 2,854
Репутация: 1461 (1198)
Лучшие ответы: 129
Можно ещё и вот так, но, наверное, это ТС не пригодится.
Код 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
PHP для начинающих Посчитать количество цифр в натуральном числе
Помогите подкорректировать код <?php $number=1212; $a=gettype($number); function get($number) { if ($a=integer){ $length = (int) log10($number)+1;} else {
log in
Pascal (Паскаль) Посчитать количество цифр в числе через оператор for
Задача самая простая - сколько цифр в натуральном числе, вводимом с клавиатуры. Но вот оператор, которым необходимо это найти для меня как дремучий лес. Да и на форуме я такого решения что-то не нашел
RaTaR
Delphi для начинающих Посчитать количество цифр в десятичном числе
Написать программу, подсчитывающую количество различных цифр в десятичной записи натурального числа n. Помогите пожалуйста решить задачу!
Жансая
С++ для начинающих нужно посчитать количество цифр 4 и 9 в данном числе
например, чтобы при вводе числа 14599 программа выдавала 3 помогите пожалуйста
edj
С++ для начинающих как посчитать количество повторений каждой из цифр в числе N*N
я очень плохо ориентируюсь на С++.Такой вопрос:можно числа переводить в строки?И если нет,то как осуществить решение задачи?Помогите, пожалуйста
Stryagina
Опции темы

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

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