Untitled

SUBMITTED BY: Guest

DATE: May 10, 2015, 4:12 p.m.

FORMAT: Text only

SIZE: 356 Bytes

Raw Download

HITS: 657

Report
  1. VAR s:LONGINT;
  2. i,x,n:LONGINT;
  3. FUNCTION Luythua(x,i:LONGINT):LONGINT;
  4. VAR s,j:LONGINT;
  5. BEGIN
  6. s:=1;
  7. FOR j:=1 TO i DO
  8. s:=s*x;
  9. Luythua:=s;
  10. END;
  11. BEGIN
  12. Writeln('Nhap n : ');
  13. readln(n);
  14. Write('Nhap x : ');
  15. Readln(x);
  16. s:=0;
  17. FOR i:=0 TO n DO
  18. s:=s+Luythua(x,i);
  19. Write('S= ',s);
  20. readln;
  21. END.
comments powered by Disqus