0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1769
1692
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program Min;
uses crt;
var S,i:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do S:=S+2*i;
writeln('S: ',S);
readln
end.
:D
Hãy giúp mọi người biết câu trả lời này thế nào?
1206
1215
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.
Mình chạy rồi nha bạn
Ok hết
Kết quả ra 2550
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1206
12749
1215
Anh ơi
1769
28435
1692
Sao em? :v