СРОЧНО , пожалуйста!!!!!! Решить в Паскаль. Дано число. Найти количество цифр в числе и...

Question

СРОЧНО , пожалуйста!!!!!! Решить в Паскаль. Дано число. Найти количество цифр в числе и их сумму.

Comments

PascalABC.NET или FreePascal?

---

АВС

Answer 1

begin

var a := ReadInteger;

var s := 0;

println(a.ToString.Length);

while a <> 0 do

begin

s += a mod 10;

a := a div 10;

end;

println(s);

end.

Comments

Спасибо огромное