KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var n , i, t : longint; begin clrscr; t:=0; write(‘Nhap n :’); readln(n); for i:=1 to 2*n do if i mod 2 = 0 then t:=t+i; write(‘Tong la :’,t); readln end.
uses crt;
var n , i, t : longint;
begin clrscr;
t:=0;
write(‘Nhap n :’); readln(n);
for i:=1 to 2*n do if i mod 2 = 0 then t:=t+i;
write(‘Tong la :’,t);
readln
end.
program Tong_Cach_Deu;
uses crt;
var i,n : integer;
S: longint;
begin
clrscr;
writeln(‘ Nhap so N’) ; readln(N);
S:=0
for i:=1 to n do if i mod 2=0 then S:=s+i;
writeln(‘ tong cua cac so chan tu 2 den’,N,’la:’,s)
end.