Viết chương trình tính S=2+4+6+…………+10
Chương trình pacal nha!
0 bình luận về “Viết chương trình tính S=2+4+6+=+10 Chương trình pacal nha!”
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.
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.
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.