Tin học 8, chương trình tính tổng các số chẵn

[Ngô Thái Dương]

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

chương trình tính tổng các số chẵn

 

[Ngô Thái Dương]

từ 1 đến 100 nha các bạn

 

[Thiên Thuận]

Code đây bạn:
var A: array [1..100] of integer;
i,S:integer;
begin
S:=0;
for i:=1 to 100 do
if A mod 2 = 0 then S:=S+A;
writeln;
write('Tong cac so chan tu 1 den 100 la: ',S);
readln
end.

 

[BhofA]

program bhofa;
uses crt;
var s,i: integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do if i mod 2 =0 then s:=s+i;
write('Tong ca so chan tu 1 den 100 la: ',s);
readln
end.

 

[BhofA]

chương trình tính tổng các số chẵn

~ Tổng quát cho bạn tính tổng các số chẵn từ n đến m nha (n<m);
program bhofa;
uses crt;
var s,i,n,m: integer;
begin
clrscr;
write('nhap n va m: '); readln(n,m);
s:=0;
for i:=n to m do if i mod 2 =0 then s:=s+i;
write('Tong ca so chan tu ',n,' den ',m,' la: ',s);
readln
end.