Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
!.Ap0$T0L.!
39 / 39 / 28
Регистрация: 01.12.2010
Сообщений: 126
#1

Найти сумму всех цифр чисел от 1 до 10^n

09.10.2011, 11:47. Просмотров 900. Ответов 3
Метки нет (Все метки)

Найти сумму всех цифр чисел от 1 до 10^n;читаем 10^n выводим суму цифр.
пример: 100 --- 901
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2011, 11:47
Ответы с готовыми решениями:

Найти сумму всех цифр (не чисел) чисел от 1 до 10n
В единственной строке задано одно целое неотрицательное число - 10^n. Известно,...

найти сумму всех цифр чисел от 1 до 10^n
Требуется найти сумму всех цифр чисел от 1 до 10^n На вход дано число 10^n <...

найти сумму всех цифр чисел от 1 до 10n
Требуется найти сумму всех цифр чисел от 1 до 10^n n <= 100000001 Пример ...

Найти сумму всех трехзначных чисел, в которых нет одинаковых цифр
У меня задачка Найти сумму всех трехзначных чисел, в которых нет одинаковых...

Найти сумму всех трехзначных чисел, в десятичной записи которых нет четных цифр
Помогите решить несколько задач. 1. заданы острый угол и сторона ромба....

3
KillJoy
55 / 55 / 29
Регистрация: 21.09.2009
Сообщений: 313
Записей в блоге: 1
09.10.2011, 12:16 #2
Сумму
0
!.Ap0$T0L.!
39 / 39 / 28
Регистрация: 01.12.2010
Сообщений: 126
09.10.2011, 12:22  [ТС] #3
Цитата Сообщение от KillJoy Посмотреть сообщение
Сумму
ну да сумму не чисел а цифр
0
KillJoy
55 / 55 / 29
Регистрация: 21.09.2009
Сообщений: 313
Записей в блоге: 1
09.10.2011, 12:41 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var x:integer;
  i,power:integer;
  pow,s,p :longint;
begin
Write('Введите степень ');
ReadLn(power);
pow := 1;
for i:= 1 to power do
pow := pow *10;
 
for i:=1 to pow do 
begin
 x:=i;
  s:=0;
  while ( x<>0 ) do 
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
  p := p +s;
  end;
 writeln( 'Сумма цифр числа =', p );
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2011, 12:41

Задать массив вещественными числами от а до в, в количестве n и найти сумму всех цифр чисел кратных трем
Задать массив вещественными числами от а до в , в количестве n и найти сумму...

Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.
Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа...

Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту строку.
Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru