Advertisement
Guest User

Untitled

a guest
Jan 24th, 2018
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. const
  2. n=10;
  3. var
  4. A:array[1..n] of 0..9;
  5. k,i,ten:integer;
  6.  
  7. begin
  8. for i:=1 to n do
  9. read(A[i]);
  10. k:=0;
  11. ten:=1;
  12. for i:=n downto 1 do
  13. begin
  14. k:=k+A[i]*ten;
  15. ten:=ten*10;
  16. end;
  17. writeln(k);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement