0 / 0 / 0
Регистрация: 15.10.2011
Сообщений: 23
1

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр

01.10.2012, 08:06. Показов 2941. Ответов 1
Метки нет (Все метки)

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2012, 08:06
Ответы с готовыми решениями:

Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр
не могу понять как посчитать сумму цифр веденного числа

Дана последовательность n натуральных чисел. Для каждого числа вычислить количество его цифр и сумму этих цифр. Вывести на экран каждое число, количес
Дана последовательность n натуральных чисел. Для каждого числа вычислить количество его цифр и...

дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти количество чётных цифр в записи числа!!
дано натуральное число N. Определить,во сколько раз произведение цифр числа больше суммы цифр.Найти...

Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без остатка. Определить количество цифр,
Дано натуральное семизначное число N. Вывести на экран цифры числа, которые делятся на а без...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32449 / 20943 / 8105
Регистрация: 22.10.2011
Сообщений: 36,210
Записей в блоге: 7
01.10.2012, 13:19 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

Читаем число как строку (длины строки в 255 символов как раз хватит, чтобы хранить представление числа <10255), количество цифр в нем будет равно длине строки. Ну, и сумму цифр найти не проблема:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var 
   s : string;
   i, sum : integer;
begin
   readln(s); { Откуда надо прочесть число ты не указал, потому читаем с клавиатуры }
   writeln('Количество цифр в числе = ', Length(s));
 
   sum := 0;
   for i := 1 to Length(s) do
      sum := sum + (Ord(s[i]) - Ord('0'));
   writeln('Сумма цифр числа: ', sum);
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2012, 13:19
Помогаю со студенческими работами здесь

Дано натуральное число n. Найти количество и сумму его цифр
Дано натуральное число n. Найти количество и сумму его цифр.

Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N&lt;10255). Вывести на экран количество цифр числа N и сумму его цифр.

Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N-1, у которых произведение цифр совпадает с произведением цифр данного числа
Помогите, пожалуйста!!! А то у меня не получается( Написал программу, когда ввожу число 32 как в...

Дано натуральное число n. Найти и вывести все числа в интервале от 1 до n − 1, у которых сумма всех цифр совпадает с суммой цифр данного числа.
Дано натуральное число n. Найти и вывести все числа в интервале от 1 до n − 1, у которых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru