Помогите с задачкой

@ruffer · Регистрация: 26.09.2011

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

Вводится число. Вывести сумму его цифр.

Ввод 160
Вывод 13

@Puporev · 23.02.2012, 09:45

Pascal

var n:integer;
     s:byte;
begin
write('n=');
readln(n);
n:=abs(n);
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
write('S=',s);
readln
end.

@ruffer · 23.02.2012, 13:37 **[ТС]**

write('n=');
это как понять

@Puporev · 23.02.2012, 13:50

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

это как понять

Да так и понять. Запусти программу и увидишь на экране
n=

@ruffer · 23.02.2012, 14:00 **[ТС]**

а вот так тоже можно сделать?

Pascal

Var
N,i:integer;
S:string;
begin
readln(n);
S:=IntTostr(n);
N:=0;
For i:=1 to S.Length do
N:=N+(Strtoint(S[i]));
writeln(n);
readln;
end.

@Puporev · 23.02.2012, 14:04

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

а вот так тоже можно сделать?

Тебе все можно, твоя же программа...

Добавлено через 1 минуту
Просто как-то принято выводить поясняющие сообщения, чтобы юзер не таращился на пустой экран в раздумье а что же ему нужно делать.

@ruffer 0 / 0 / 0 Регистрация: 26.09.2011 Сообщений: 69
		1
	Помогите с задачкой 23.02.2012, 08:11. Показов 622. Ответов 5 Метки нет (Все метки) Вводится число. Вывести сумму его цифр. Ввод 160 Вывод 13 0

@ruffer 0 / 0 / 0 Регистрация: 26.09.2011 Сообщений: 69
	23.02.2012, 13:37 [ТС]	3
	write('n='); это как понять 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.02.2012, 13:50	4
	Сообщение от ruffer это как понять Да так и понять. Запусти программу и увидишь на экране n= 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.02.2012, 14:04	6
	Сообщение от ruffer а вот так тоже можно сделать? Тебе все можно, твоя же программа... Добавлено через 1 минуту Просто как-то принято выводить поясняющие сообщения, чтобы юзер не таращился на пустой экран в раздумье а что же ему нужно делать. 0