Tin học Viết chương trình

[Phùng Lê Toàn Chí]

[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 của N stn đầu tiên các số chia hết cho 2, không vượt qua N với N nhập từ bàn phím

 

[ĐứcNhật!]

viết chương trình tính tổng của N stn đầu tiên các số chia hết cho 2, không vượt qua N với N nhập từ bàn phím

Program Tong;
Uses crt;
Var i,n,s: longint;
Begin
clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
s:=0;
If i mod 2 = 0 then s:=s+i;
End;
Write('Tong la: ',s);
Readln
End.