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

@Kutta · Регистрация: 15.04.2015

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

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

@Constantin Cat · 16.04.2015, 16:38

Pascal

var
  a,b:integer;
begin
  write('Enter A:');
  readln(a);
  b:=0;
  while a>0 do
    begin
      b:=b+(a mod 10);
      a:=a div 10;
    end;
  writeln('Result:',b)
end.

@Catstail · 16.04.2015, 19:23

Constantin Cat, неправильно. У тебя получится просто сумма цифр. Нужно другое. К примеру, есть число 12345. Нужно вычислить: 1234+123+12+3:

Pascal

Program task6;
 
Var n : integer;
 
Function Sum(n : integer) : integer;
Var k : integer;
Begin
       if n < 10 Then
          result:=n
       else Begin
          k:=(n div 10);
          result:=k+Sum(k);
       End
End;
 
Begin
       readln(n);
       writeln(Sum(n));
End.

@Constantin Cat · 16.04.2015, 20:18

Да Вы правы.

@Kutta 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 10
		1
	Найти сумму чисел, получаемых при последовательном вычеркивании последней цифры числа 16.04.2015, 14:11. Показов 556. Ответов 3 Метки нет (Все метки) Дано натуральное пятизначное число. Найти сумму чисел, получаемых при последовательном вычеркивании последней цифры числа. 0

@Constantin Cat 3405 / 1824 / 489 Регистрация: 28.02.2015 Сообщений: 3,701
	16.04.2015, 20:18	4
	Да Вы правы. 0

Опции темы