YOMEDIA
NONE

1 . viết chương trình tính tổng từ a đến b 2 . viết chương trình tính tổng từ 4 đến h 3 . viết chương trình tính tích từ 1 đến m 4 . viết chương trình tính số lẻ từ 1 đến n 5 . viết chương trình tính tích từ 1 đến n 6 . viết chương trình kiểm tra xem số đó có phải là số dương hay không 7 . viết chương trình kiểm tra xem số đó có chia hết cho 3 và 5 hay không

1 . viết chương trình tính tổng từ a đến b

2 . viết chương trình tính tổng từ 4 đến h

3 . viết chương trình tính tích từ 1 đến m 

4 . viết chương trình tính số lẻ từ 1 đến n

5 . viết chương trình tính tích từ 1 đến n

6 . viết chương trình  kiểm tra xem số đó có phải là số dương hay không 

7 . viết chương trình kiểm tra xem số đó có chia hết cho 3 và 5 hay không 

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Huy Bách Hoàng

    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.

            

     

     

                                 

     

                       

         

      bởi Huy Bách Hoàng 24/11/2019
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 8

 

YOMEDIA
ATNETWORK
ON