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

Ответ Создать новую тему
 
26.02.2010, 14:58   #1
Dmc94
Новичок
Регистрация: 13.01.2010
Сообщений: 21
Репутация: 5 (5)
Лучшие ответы: 1
Как найти количество цифр в данном числе?
26.02.2010, 14:58
AdAgent
Объявления
26.02.2010, 15:07   #2
Inadequate
Retired
Регистрация: 17.10.2009
Сообщений: 5,112
Репутация: 7682 (2576)
Лучшие ответы: 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 Разность max и min элементов массива
Подскажите пожалуйста как решать задачу: Дан упорядоченный по возрастанию массив и дано число N.Нужно уменьшить некоторые элементы массива не более чем в N раз так, чтобы разность между max и min элементами массива стала наименьшей(неотрицательной).
Pascal программа на одномерный массив
я в программировании мало понимаю, помогите пожалуйста сделать программу в паскале)) Создать одномерный массив. Определить сколько элементов меньше R. Получить значение адреса элемента R массива на экране. Рассчитать объем памяти, занимаемый данными. (R=5)
26.02.2010, 15:25   #3
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,994
Репутация: 42024 (30544)
Лучшие ответы: 1,725
Код 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 Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. Подсчитать в этом числе количество нулей, единиц, двоек до девяток. Подсчитать общее количество цифр в этом числе
Pascal (Паскаль) Max051096 14.01.2014 14:50
C++ Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. помогите пожалуйста.
С++ для начинающих Серый \ 25.11.2012 14:04
Pascal ABC Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр.
1)Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр. Пример, 201304, результат 234. 2)Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало =0. хелп
Pascal ABC _Camelot 10.11.2011 17:20
Pascal Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Помогите пожалуйста составить программу
Pascal (Паскаль) Lissa_kamcha 06.10.2010 17:52
C++ Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
Натуральное число, в котором n цифр, если сумма цифр возведённая в nую степень равна числу то вы вывесте число на экран(интервал чисел от 1 до k)
С++ для начинающих anwar_uz 22.03.2009 13:10
Опции темы

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

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