tính tổng các số lẻ từ 100 đến 200 Giúp vs ặ
2 câu trả lời
Program baitap;
Uses crt;
Var i,S:integer;
Begin
Clrscr;
S:=0;
For i:=100 to 200 do
If i mod 2=1 then S:=S+i;
Writeln('Ket qua:',S);
Readln
End.
Câu hỏi trong lớp
Xem thêm