Viết chương trình tính tổng S= 2+4+6+8+...+100 (sử dụng lệnh for do)
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.
Mình chạy rồi nha bạn
Ok hết
Kết quả ra 2550
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
Câu hỏi trong lớp
Xem thêm
