Помогите решить простую задачу. Pascal

← →
Gomosapin (2004-04-19 23:27) [0]

Составте программу вычисления суммы цыфр введенного с клавиатуры
трехзначного числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12.

P.S. Я просто незнаю какой оператор делит целое число на 3 части.

← →
RealRascal © (2004-04-19 23:33) [1]

var i,j,res:integer;
s:string;
begin
// ввод числа в j
res:=0;
s:=inttostr(j);
for i:=1 to high(s) do
begin
res:=res+strtoint(s[i])
end;
end;

← →
RealRascal © (2004-04-19 23:34) [2]

не самый оптимальный но имхо самый простой способ

← →
sniknik © (2004-04-19 23:35) [3]

> трехзначного числа

128 div 100 = 1
(128 mod 100) div 10 = 2
128 mod 100 = 8

1+2+8=11

p.s. надеюсь программистом стать не хочеш... ???

← →
SergP © (2004-04-19 23:35) [4]

Удалено модератором
Примечание: Уважай форум

← →
Gomosapin (2004-04-19 23:36) [5]

А как это сделать в Паскале?

← →
Gomosapin (2004-04-19 23:36) [6]

Всем огромное спасибо!!!!!!

:о((
последня строка должна быть
128 mod 10 = 8

← →
Gomosapin (2004-04-19 23:38) [8]

sniknik © (19.04.04 23:35) [3]

Спасибо за твою подсказку, но это же ты сделал для конкретного числа, а числа то могут быть разные...

← →
Gomosapin (2004-04-19 23:40) [9]

А все понял, блин а я так хотел стать програмером :((((
Какой же теперь из меня программер, о боже, за что ???

Помогите решить простую задачу. Pascal Найти похожие ветки