Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
var
 n:integer;
begin
 readln(n);
 writeln((n div 1000) mod 10+(n div 100) mod 10+(n mod 100) div 10+n mod 10);
end.
Comments: