2 câu trả lời
uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2 = 0 then s:=s+i;
write('Tong cac so chan tu 1 den ',n,' la: ',s);
readln
end.
Uses CRT;
Var i,n,s:integer;
Begin clrscr;
Write('Nhap so n=');Readln(n);
S:=0;
For i:=1 to n do
If i mod 2=0 do S:=S+i;
Writeln;
Write(' Tong cac so chan la ' ,S);
Readln;
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
