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

Ответ Создать новую тему
 
Старый 26.02.2010, 14:58   #1
Dmc94
Новичок
 
Регистрация: 13.01.2010
Сообщений: 21
Репутация: 4 (4)
Лучшие ответы: 1
Число цифр / Pascal (Паскаль)

Как найти количество цифр в данном числе?
Старый 26.02.2010, 15:07   #2
Inadequate
Retired
 
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7678 (2572)
Лучшие ответы: 63
Число цифр

Код Pascal
1
2
3
4
5
6
7
8
9
var
  N: integer;
  s: string;
begin
  ReadLn(N);
  Str(abs(N), s);
  WriteLn(Length(s));
  ReadLn
end.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь студентам и школьникам в решении задач.
Pascal Разность max и min элементов массива
Подскажите пожалуйста как решать задачу: Дан упорядоченный по возрастанию массив и дано число N.Нужно уменьшить некоторые элементы массива не более чем в N раз так, чтобы разность между max и min элементами массива стала наименьшей(неотрицательной).
Pascal программа на одномерный массив
я в программировании мало понимаю, помогите пожалуйста сделать программу в паскале)) Создать одномерный массив. Определить сколько элементов меньше R. Получить значение адреса элемента R массива на экране. Рассчитать объем памяти, занимаемый данными. (R=5)
Старый 26.02.2010, 15:25   #3
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,246
Репутация: 40927 (29474)
Лучшие ответы: 1163
Число цифр / Pascal (Паскаль)

Код Pascal
1
2
3
4
5
6
7
8
9
10
11
var n,m:longint;
     k:byte;
begin
readln(n);
m:=n;
k:=0;
while m>0 do
 begin
  m:=m div 10;
  k:=k+1;
 end;
Старый 26.02.2010, 15:25
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Pascal ABC Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр
помогите студентке:cry: Счастливым будет считаться такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр.Например: 457961 4+5+7 = 9+6+1. Вывести на экран все счастливые числа в интервале от А до В и подсчитать их количество. Добавлено через 1 час 10 минут...
Margosham-k
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
1)Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр. Пример, 201304, результат 234. 2)Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало =0. хелп
_Camelot
C++ Builder Установить, четным или нечетным является число цифр в записи данного натурального числа. Если число цифр нечетно, вывести среднюю цифру
Уважаемые программисты помогите написать программу...у меня завал( "Установить, четным или нечетным является число цифр в записи данного натурального числа. Если число цифр нечетно, вывести среднюю цифру." Заранее благодарен
Vladimir6406
Pascal (Паскаль) Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Помогите пожалуйста составить программу
Lissa_kamcha
С++ для начинающих Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
anwar_uz
Опции темы

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

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