Скачать: CL | DM;

Помогите решить простую задачу. 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]

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

---

← →
sniknik ©   (2004-04-19 23:36) [7]

:о((
последня строка должна быть  
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c