Сумма цифр введенного трехзначного числа. Дельфи

[by -ORTODOX-]

Мне нужно написать небольшую прогу, вот она:
"Составить программу,которая подсчитывает сумму цифр введенного трехзначного числа,например,введено 123, рез-тат 1+2+3=6" .
ПОмогите пожалуиста. Спасибо.

[by -ORTODOX-]

Помогите пожалуиста!

[puporev]

Если число конкретно трехзначное, то это просто. Третья цифра=N mod 10, т.е. остаток от деления на 10. Первая цифра=N div 100, т.е. целая часть числа от деления на 100. Тогда вторая цифра=N div 10 mod 10. Ну а сейчас все надо сложить.

[by -ORTODOX-]

ага, спасибо, кажись понял ,сеичас буду пробовать

[Stepler]

Вот смотри, все довольно просто.

var i,n,sum:integer;
begin
writeln('Vvedite chislo');
readln(n);
sum:=0;
for i:=1 to 1 do
 begin
 sum:=sum+(n mod 10);
 n:=n div 10;
 if(n=0) then break;
 i:=i-1;
 end;
 writeln(sum);
 readln;
end.

[Шаман]

Я бы немного переписал :

var i,n,sum:integer;
begin
writeln('Vvedite chislo');
readln(n);
sum:=0;
 While n>0 do
  begin
   sum:=sum+(n mod 10);
   n:=n div 10;
 end;
 writeln(sum);
 readln;
end.

[[Smarik]]

Хм...вообще по сути не 1 из 2-х вариантов не соответствует алгоритму пупорева и не решает задачу, первый только находит все числа, второй тоже самое, только еще без счетчика. Да и вообще если заранее известно количество чисел зачем циклы...

var
n,a,b,c,sum:integer;
begin
write('Vvedite chislo '); readln(n);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
sum:=a+b+c;
writeln('summa chisel: ',sum);
readln;
end.

[Stepler]

Хм...вообще по сути не 1 из 2-х вариантов не соответствует алгоритму пупорева и не решает задачу

Ты не прав, тот кусок кода что я выложыл какраз и решает задачу, находит сумму цифр любого введеного числа(в пределах integer).

первый только находит все числа, второй тоже самое, только еще без счетчика.

Оба варианта есть одинаковими, разница только в циклах!
Никакого счетчика там нет!

Да и вообще если заранее известно количество чисел зачем циклы...

А затем что количество цыфр числа наперед неизвестно, и без цикла там не обойтись!

Парень разберись в всем, код довольно прост, или тебе написать коментарий к каждой строке?

[by -ORTODOX-]

А если можете, то объяните по строчкам пожалуиста объянение кажждой строки (во как замутил :D ) , т.е 1), там 2)
Заранее спасибо!

[by -ORTODOX-]

Просто каждую строку мне объянять учителю придется ...
Спасибо