Viết chương trình Tỉnh tổng các số lẻ bé hơn 200 14/07/2021 Bởi Madeline Viết chương trình Tỉnh tổng các số lẻ bé hơn 200
Ý tưởng: – $200$ là số chẵn. – Mà đề cho vừa là số lẻ vừa bé hơn $200$ thì chỉ có số $199$ (TM). – Dùng vòng lặp for..to..do cho biến i chạy từ $1\to199$. – Đang lặp mà tìm thấy ai mod 2=1 thì cho tổng cộng với anh đó. Chương trình: uses crt;var i,s:longint;begin clrscr; for i:=1 to 199 do if i mod 2=1 then inc(s,i); writeln(‘Tong cac so le be hon 200: ‘,s); readln;end. Bình luận
Ý tưởng:
– $200$ là số chẵn.
– Mà đề cho vừa là số lẻ vừa bé hơn $200$ thì chỉ có số $199$ (TM).
– Dùng vòng lặp for..to..do cho biến i chạy từ $1\to199$.
– Đang lặp mà tìm thấy ai mod 2=1 thì cho tổng cộng với anh đó.
Chương trình:
uses crt;
var i,s:longint;
begin
clrscr;
for i:=1 to 199 do if i mod 2=1 then inc(s,i);
writeln(‘Tong cac so le be hon 200: ‘,s);
readln;
end.