Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Create an account
Bài 1:
Program BTT;Uses crt;Var i,d: longint;Begin Clrscr; d:=0; For i:=3 to 99 do If i mod 3 = 0 then inc[d]; Write['Co ',d,' so chia het cho 3 trong 100 so tu nhien dau tien']; Readln
End.
Bài 2:
Program BTT;Uses crt;Var n,i,s: longint; tbc: real;Begin Clrscr; Write['Nhap n: ']; Readln[n]; s:=0; For i:=1 to n do s:=s+i; tbc:=s/n; Write['Trung binh cong cua ',n,' so tu nhien dau tien la: ',tbc:0:2]; Readln
End.
Bài 3:
Program BTT;Uses crt;Var n,i,dc,dl,tc,tl: longint; tbcc,tbcl: real;Begin Clrscr; Write['Nhap n: ']; Readln[n]; dc:=0; dl:=0; tc:=0; tl:=0; For i:=1 to n do Begin If i mod 2 = 0 then Begin tc:=tc+i; inc[dc]; End Else Begin tl:=tl+i; inc[dl]; End; End; tbcc:=tc/dc; tbcl:=tl/dl; Writeln['TBC cac so chan: ',tbcc:0:2]; Write['TBC cac so le: ',tbcl:0:2]; Readln
End.
Viết chương trình in ra các số chẵn chia hết cho 3 từ 1 đến 100 và đếm có bao nhiêu số?
Anh chị giúp em với ạ
Viết chương trình đếm các số chia hết cho 3 từ 1 đến 100. Kết quả hiện lên màn hình.