2 câu trả lời
Program TH3;
Uses Crt;
Var a,b:integer;
Begin
Clrscr;
a:=0;
For b:=1 to 100 do
If b mod 2=0 then a:=a+b;
Writeln('Tong cua day so tren la: ',a);
readln;
End.
Chạy thử Ok cả rồi nha bạn
KQ ra 2550 nha
^-^
Uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do if i mod 2=0 then t:=t+i;
write(t);
readln;
end.
Câu hỏi trong lớp
Xem thêm
