Viết chương trình tính S=2+4+6+............+10 Chương trình pacal nha!
2 câu trả lời
var s,i:byte;
begin
for i:=2 to 10 do
if i mod 2=0 then s:=s+i;
write('s= ',s);
readln
end.
program BTH;
uses crt;
var a,b,c:byte;
Begin
clrscr;
c:=10;
For a:=1 to c do
If a mod 2=0 then b:=a+b;
writeln('Tong day so tren la: ',b);
readln;
End.
