В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать...

Question

В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью)

Answer 1

Var a, b :integer;beginreadln(a);b:=(a mod 10);a:=(a div 10);b:=b + (a mod 10);a:=(a div 10);b:=b + (a mod 10);a:=(a div 10);b:=b + (a mod 10);a:=(a div 10);writeln(b);end.

Comments

Первая

---

var a, b :integer;
begin
a:=0;
b:=0;
while a<>100 do
begin
a:=a+1;
if a mod 5 = 0 then
b:=b+a;
end;
Writeln(b);
end.

---

Вторая

---

Ну как быстро?:))

---

Уже 2

---

круто, спасибо огромное. благодаря тебе завтра не получу двойку

---

Я стараюсь;)

---

Сейчас 3 напишу

---

Сорян, мне в магаз:) Помог, чем смог:)

---

ну ладно, все равно спасибо