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

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

22.04.2015, 22:33. Показов 1169. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано натуральное пятизначное число. Найти сумму чисел, получаемых при последовательном вычеркивании последней цифры числа.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2015, 22:33
Ответы с готовыми решениями:

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

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

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

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

3
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,044
23.04.2015, 09:01 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var N, S : Longint;
begin
  Write('Введите натуральное пятизначное число: '); ReadLn(N);
  if (99999 < N) or (N < 10000) then
    begin
      WriteLn('Ну и чего сложного попросили?');
      Halt;
    end;
  S := N; N := N div 10;
  Inc(S, N); N := N div 10;
  Inc(S, N); N := N div 10;
  Inc(S, N); Inc(S, N div 10);
  WriteLn('Сумма чисел, получаемых при последовательном вычеркивании последней цифры числа = ', S);
end.
0
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
23.04.2015, 09:10 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Мне кажется само число в сумму не ходит, нет вычеркивания.
Pascal
1
2
3
4
5
6
s:=0;
for i:=1 to 4 do
 begin
  n:=n div 10;
  inc(s,n);
 end;
0
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,044
23.04.2015, 09:13 4
Puporev, может быть и так…
Тогда нужно в моём коде вместо „S := N“ написать „S := 0“!

Если уж хотелось сделать циклами, то зачем же вводить лишнюю переменную?
Не проще ли так:
Pascal
1
2
3
4
repeat
  N := N div 10;
  Inc(S, N);
until N < 10;
0
23.04.2015, 09:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2015, 09:13
Помогаю со студенческими работами здесь

Найти сумму четырёхзначных чисел, получаемых при всевозможных перестановках
Найти сумму четырёхзначных чисел, получаемых при всевозможных перестановках цифр 1, 3, 3, 3 решил,...

Найти сумму первой и последней цифры числа
Дало натуральное число n. Найти сумму первой и последней цифры этого числа. Напишите плиз

Найти сумму первой и последней цифры числа
найти сумму первой и последней цифры любого положительного натурального числа! Помогите!!!

Найти сумму первой и последней цифры числа
3)Дано натуральное числo n.Найти сумму первой и последней цифры этого числа.

Найти сумму первой и последней цифры числа
Дано натуральное число n. Найти сумму первой и последней цифры этого числа. В программе...

Найти сумму первой и последней цифры числа
Ребят, подскажите, почему не складываются первая и последняя цифра в числе #include &lt;stdio.h&gt; int...


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

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

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