Câu 9 : Viết chương trình tính và in ra tổng các số chia hết cho 3 của trong phạm vi từ 1 đến N? (N được nhập vào từ bàn phím) Câu 10 : Viết chương tr

0 bình luận về “Câu 9 : Viết chương trình tính và in ra tổng các số chia hết cho 3 của trong phạm vi từ 1 đến N? (N được nhập vào từ bàn phím) Câu 10 : Viết chương tr”

1. Câu 1: 

   Program BTT;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do 

                  If i mod 3 = 0 then s:=s+i;
           Write(‘Tong la: ‘,s);
           Readln
   End.

   Câu 2:

   Program BTT;
   Uses crt;
   Var a,x,i: longint;
       s: real;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           Write(‘Nhap x: ‘); Readln(x);
           s:=0;
           For i:=0 to 10 do
                   s:=s+x/(a+i);
           Write(S:0:2);
           Readln
   End.

   Bình luận

2. Câu 9:

   var i,s,n:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:= 1 to n do

   if i mod 3 = 0 then s:=s+i;

   write(‘Tong la: ‘,s);

   end.

   Câu 10;

   Bạn kiểm tra giúp mình x nhập từ bàn phím hay sao rồi mình làm cho

   Bình luận