YOMEDIA

Huy Bách Hoàng's Profile

Huy Bách Hoàng

Huy Bách Hoàng

01/01/1970

Số câu hỏi 0
Số câu trả lời 4
Điểm 20
Kết bạn

Bạn bè (0)

Hoạt động gần đây (4)

  • 1.      

    program tongab;

    uses crt;

    var a,b,s:real;

          i:integer;

    begin

                s:=0

         writeln('nhap hai so a,b cach nhau boi dau cach');readln(a,b);

                 for i:=a to b do

                             begin

                                        s:=s+i;

                              end;

                   writeln('tong cac so tu a den b la ',s:2:2);

               readln;

    end.

    2.

    program tong4h;

    uses crt;

    var h,s:real;

          i:integer;

    begin

           writeln('nhap so cuoi cung cua day bat dau tu 4');readln(h);

                         s:=0

               for i:=4 to h do

                        begin

                              s:=s+i;

                         end;

                 writeln('tong la',s:2:2);

                readln;

     end.

    3.

    program tongab;

    uses crt;

    var m,s:real;

          i:integer;

    begin

           s:=0 

                 writeln('nhap so cuoi cung cua day tinh tu 1');readln(m);

                              for i:=1 to m do

                                           begin

                                                   s:=s*i;

                                            end;

                writeln('tong la',s:2:2);

              readln;

    end.

    4. mình không hiểu lắm tính số lẻ là sao

    5. tương tự chương trình câu 3

    6.

    program tongab;

    uses crt;

    var a:real;

    begin

          writeln('nhap so can xac dinh');readln(a);

                   if a>0 then writeln('day la so duong') else writeln('khong phai nha');

        readln;

    end.

    7.

      

    program tongab;

    uses crt;

    var n:integer;

    begin

           writeln('nhap so can xac dinh');readln(n);

            if n mod 5=0 then writeln(' so nay chia het cho 5') else writeln('ko chia het cho 5');

            if n mod 3 = 0 then writeln('so nay chia het cho 3') else writeln('ko chia het cho 3');

    readln;

    end.

            

     

     

                                 

     

                       

         

  • Huy Bách Hoàng đã trả lời trong câu hỏi: Hãy nêu ý nghĩa của các câu lệnh sau: a. X:=X+5 b. S:=A*A Cách đây 4 năm

    a. giá trị của X mới là X cũ cộng thêm 5

    b. giá trị của s được gán là bình phương của A

  • 1/Chương trình:

    program ninja247;

    uses crt;

    var a,b:real;

    begin

             writeln('nhap 2 so a va b');readln(a,b);

             writeln('a=',a);

             writeln('b=',b);

     readln;

    end.

    2/ từ khóa là nó có sẵn trong phần mềm rồi còn tên là do mình đặt ra.

       tên thì có nhiều lắm 

      VD: Tên chương trình: Program hoidap;

            Tên biến: var a,b,c:longint;

                                x,y,z:real;

                                apple,samsung,huawei:string;

            Tên hằng: const PI=3,14;

                                    .............

  • Huy Bách Hoàng đã trả lời trong câu hỏi: Mọi người giúp mình vs Cách đây 4 năm

    program  gi_cung_duoc;

    uses crt;  {không cần thiết}

    var n:integer;

          begin

                writeln('nhap nam sinh cua ban');readln(n);

                writeln('NAM SINH ',2006);

          readln;  {nếu muốn xem kết quả in ra không thích xem thì bỏ dòng này cũng được}

          end.

Không có Điểm thưởng gần đây

AANETWORK
 

 

AANETWORK
OFF