Viết chương trình tính tổng sau : S= 2+4+6+...+100 ( bằng 2 cách khác nhau )
2 câu trả lời
đây: nhé
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.
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.
Kết quả ra 2550
C2.ko bt
