Простые числа - Паскаль, Turbo Pascal, PascalABC.NET

nikolay61 · 11.10.2015, 20:52

Вычислить количество цифр целого неотрицательного числа n.
Входные данные: Одно не отрицательное целое число n (0 ≤ n ≤ 2*109).
Выходные данные: Количество цифр в числе n.
Прогон:
Вход 12343 Выход 5
Код программы: Полный "0". ДАже не представляем с чего начать. МОД и ДИВ - не катит, FOR-может символами, так целочисленное. Вообщем делема. КТо может помочь?

type_Oleg · 11.10.2015, 21:09

Можно так

Код:

uses Math;
// ....
 if n>0 then kol:=Trunc(Log10(n))+1 else kol:=1;

nikolay61 · 11.10.2015, 21:28

trunc отбрасываем дробную а Log 10(n) что делает

Аватар · 11.10.2015, 21:33

Цитата:

Сообщение от nikolay61

trunc отбрасываем дробную а Log 10(n) что делает

https://www.google.com.ua/?gws_rd=cr...q=Log10+pascal

nikolay61 · 11.10.2015, 21:37

Благодарю. Четко и понятно

11.10.2015, 20:52	#1
nikolay61 Пользователь Регистрация: 25.12.2012 Сообщений: 10	Простые числа Вычислить количество цифр целого неотрицательного числа n. Входные данные: Одно не отрицательное целое число n (0 ≤ n ≤ 2*109). Выходные данные: Количество цифр в числе n. Прогон: Вход 12343 Выход 5 Код программы: Полный "0". ДАже не представляем с чего начать. МОД и ДИВ - не катит, FOR-может символами, так целочисленное. Вообщем делема. КТо может помочь?

11.10.2015, 21:09	#2
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	Можно так Код: `uses Math; // .... if n>0 then kol:=Trunc(Log10(n))+1 else kol:=1;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Даны натуральные числа a и b (a<b). Получить все простые числа из промежутка от a до b. ( с# )	NastyaShuvalova	Помощь студентам	0	16.12.2013 18:08
Даны целые числа р и q. Получить все делители числа q, взаимно простые c г.	Владан	Паскаль, Turbo Pascal, PascalABC.NET	2	03.12.2012 23:39
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа	Lena1808	Помощь студентам	1	17.05.2012 08:00
Простые числа...	cbuilderx	Помощь студентам	3	08.03.2012 22:25
Простые числа	Verochka	Помощь студентам	14	02.12.2008 20:30

11.10.2015, 21:28	#3
nikolay61 Пользователь Регистрация: 25.12.2012 Сообщений: 10	trunc отбрасываем дробную а Log 10(n) что делает

11.10.2015, 21:37	#5
nikolay61 Пользователь Регистрация: 25.12.2012 Сообщений: 10	Благодарю. Четко и понятно