2 câu trả lời
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do if i mod 2 = 0 then inc(s,i);
writeln('Tong: ',s);
readln
end.
Program Hotboy;
Uses crt;
Var s,i,n: longint;
Begin
Clrscr;
S:=0;
Write('nhap n');
Readln(n);
For i:=1 to n do
If ( i mod 2=0) then
S:=S+i;
Write('tong các so chan từ 1 den ',n,' la',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm