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

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

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

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

@Puporev · 23.04.2015, 10:21

Pascal

var n,s,k:integer;
begin
repeat
write('Введите 4х значное число n=');
readln(n);
until(n>999)and(n<10000);
k:=1000;
s:=0;
repeat
n:=n mod k;
s:=s+n;
writeln(n);
k:=k div 10;
until k=1;
write('сумма=',s);
end.

@Kutta · 23.04.2015, 10:28 **[ТС]**

Нужно вычислить: 123+12+4 вроде

@Puporev · 23.04.2015, 10:29

Сообщение от Kutta

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

это
234
34
4
Кстати в дубле Вашей темы так и было написано.

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

@Kutta 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 10
	23.04.2015, 10:28 [ТС]	3
	Нужно вычислить: 123+12+4 вроде 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.04.2015, 10:29	4
	Сообщение от Kutta при последовательном вычеркивании первой цифры числа. это 234 34 4 Кстати в дубле Вашей темы так и было написано. 0

Опции темы

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

Решение