tính tổng các số lẻ từ 100 đến 200 Giúp vs ặ

2 câu trả lời

s = 0

for i in range(100, 201):

     if i % 2 = 1:

          S += i

print("Kết quả:", s)

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