khó đây pascal nha

[sagacious]

[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.

viết chương trình tính tổng N số chẵn đầu tiên với N được nhập từ bàn phím!@@@@@@@@@@@@**************@@@@@@@@@@@@@ thanks nhìu

 

[lethihabinh]

var n,s,i,t:integer;
begin
write('nhap N:'); readln(N); t:=0; s:=0;
for i:=1 to n do
begin
t:=t+2;
s:=s+t;
end;
write('s=',s);
readln
end.

 

[lamdetien36]

Bài này đâu có khó, chỉ cần nắm vững cơ bản là làm được thôi mà

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