задачка по информатике по блок-схеме... можно код ** паскале или хотя бы скажите ответ

Question

задачка по информатике по блок-схеме... можно код на паскале или хотя бы скажите ответ

---

Comments

1138,688

---

javascript:a=1024,b=a;while(a>=10){a/=10;b+=a;}if(a!=1)b+=a;alert(b);

Answer 1

1138.688
Program my;uses crt;vara,b : real;begina := 1024;b := a;while (a>=10) do begina := a/10;b := b+a;end;if (a=1) then writeln(b) else b := b + a; writeln(b);end.