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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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