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

[Lê Đình Bảo]

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

dùng ngôn ngữ pascal
viết chương trình tính tổng S=1+2+4+6+.....+N ( N < 10000, N là số nguyên được nhập từ bàn phím)

 

[Elishuchi]

dùng ngôn ngữ pascal
viết chương trình tính tổng S=1+2+4+6+.....+N ( N < 10000, N là số nguyên được nhập từ bàn phím)

var i,n,tong:longint;
begin
read(n);
tong:=1;
for i:=2 to n do
if i mod 2=0 then tong:=tong+i;
write(tong);
readln;
end.