Em hãy viết chương trình và đưa ra màn hình S S=2+4+6+...+200
2 câu trả lời
Program tinh_tong;
Uses crt;
Var S,i: integer;
Begin
S:=0;
For i:=1 to 200 do
If i mod 2= 0 then
S:= S+i;
Writeln ('Tong S la:',S);
Readln
End.
uses crt;
var i, S : integer;
begin
clrscr;
S := 0; for i := 1 to 100 do
S := S + i * 2;
write('S = ', S);
readln
end.
Câu hỏi trong lớp
Xem thêm
