[Tin 8]Pascal

[thythyhcb]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

hãy viết một chương trình tính tổng N số tự nhiên chắn đầu tiên, với N là một số tự nhiên được nhập từ bàn phím
help me!!!!!!!!! |

 

[lamdetien36]

Chắc bạn nhầm box rồi

var
    N, i: integer;
    S: longint;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do S := S + 2 * i;
    write('Ket Qua: ', S);
    readln
end.

 

[thythyhcb]

Chắc bạn nhầm box rồi

var
    N, i: integer;
    S: longint;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do S := S + 2 * i;
    write('Ket Qua: ', S);
    readln
end.

miễn xao có đc trả lời là được rồi bạn ạ, tks bạn nhìu