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

@Goryn · Регистрация: 22.04.2015

Студворк — интернет-сервис помощи студентам

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

@JuriiMW · 23.04.2015, 09:01

Pascal

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.

@Puporev · 23.04.2015, 09:10

Мне кажется само число в сумму не ходит, нет вычеркивания.

Pascal

s:=0;
for i:=1 to 4 do
 begin
  n:=n div 10;
  inc(s,n);
 end;

@JuriiMW · 23.04.2015, 09:13

Puporev, может быть и так…
Тогда нужно в моём коде вместо „S := N“ написать „S := 0“!

Если уж хотелось сделать циклами, то зачем же вводить лишнюю переменную?
Не проще ли так:

Pascal

repeat
  N := N div 10;
  Inc(S, N);
until N < 10;

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

Решение

Решение

@Goryn 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 30
		1
	Найти сумму чисел, получаемых при последовательном вычеркивании последней цифры числа 22.04.2015, 22:33. Показов 1076. Ответов 3 Метки нет (Все метки) Дано натуральное пятизначное число. Найти сумму чисел, получаемых при последовательном вычеркивании последней цифры числа. 0

Опции темы