Viết chương trình tính 1^n+2^n+...+n^n với n nhập từ bàn phím trên Pascal

uses crt;
var  n,i:longint;
s:int64;

function pow(n:longint):int64;
var s:int64;
i:longint;
begin
s:=1;
for i:=1 to n do
 s:=s*n;
exit(s);
end;

begin
clrscr;
readln(N);
s:=0;
for i:=1 to n do
 s:=s+pow(i);
write(s);
readln
end.

`@` Cách 1 : vòng lặp cơ bản

- Bản chất đề là `i` nhân `n` lần, tức `i^n`

- Vậy ta 1. là thêm 1 vòng lặp 2. là tạo hàm

- Mà hàm lớp 8 chưa học nên cách 1. vậy :))))

- Kết quả khá lớn nên thay vì biến S là longint, ta lưu bằng real cho lớn

- Ta tạo biến tam, lặp từ `1` đến `n`, nhân biến `i` với `n` lần

- Cộng kết quả vào s

- Xuất đáp án

`@`Code Pascal :

uses crt ;
    var n, i, j : longint ;
        s, tam : real ;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    
    s := 0 ;
    for i := 1 to n do 
         begin
        tam := 1 ;
        for j := 1 to n do tam := tam * i ;
        s := s + tam ;
         end ;
    write('Dap an la: ',s:0:0);
      readln ;
end .

`@` Bonus : tỉnh tôi 3 năm liền có 1, 2 HS dùng Pascal đạt giải nhất