2 câu trả lời
Tổng số lẻ
var kq,i: integer;
begin
for i:=1 to 100 do
if not i mod 2 = 0 then inc(kq,i);
write('Tong so le 1 den 100 la: ',kq);
end.
Program Hotboy;
Uses crt;
Var i,l,c : byte;
Begin
Clrscr;
I:=0;c:=0;
For i:=1 to 100 do
If ( i mod 2=0) then inc(c) else inc(l);
Write('so so le la',l,'so so chan la',c);
Readln
End.
Câu hỏi trong lớp
Xem thêm