1. Nêu cú pháp của câu lệnh lặp với số lần biết trước và giải thích các thành phần có trong cú pháp 2. Viết chương trình tính tổng: S= 1+2+3+…+n với n

1. Nêu cú pháp của câu lệnh lặp với số lần biết trước và giải thích các thành phần có trong cú
pháp
2. Viết chương trình tính tổng: S= 1+2+3+…+n với n là số tự nhiên được nhập từ bàn phím
3. Viết chương trình tính tổng: S= 1+3+5+…+n với n là số tự nhiên được nhập từ bàn phím
4. Viết chương trình tính tổng: S= 2+4+6+…+n với n là số tự nhiên được nhập từ bàn phím
5. Viết chương trình tính tổng: S= 1 2 +2 2 +3 2 +…+n 2 với n là số tự nhiên được nhập từ bàn phím
6. Viết chương trình tính tích: P= 1.2.3.…x với x là số tự nhiên được nhập từ bàn phím
7. Viết chương trình tính tích: P= 1.3.5.…x với x là số tự nhiên được nhập từ bàn phím
8. Viết chương trình tính tích: P= 2.4.6.…x với x là số tự nhiên được nhập từ bàn phím
9. Viết chương trình tính tích: P= 1 2 .2 2 .3 2 .…x 2 với x là số tự nhiên được nhập từ bàn phím
10. Chạy bằng tay các chương trình (từ câu 2 đến câu 9) để kiểm tra kết quả

0 bình luận về “1. Nêu cú pháp của câu lệnh lặp với số lần biết trước và giải thích các thành phần có trong cú pháp 2. Viết chương trình tính tổng: S= 1+2+3+…+n với n”

  1. 1/

    for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

    các từ:  “for” “to” “do” là từ khóa

    lưu ý: giá trị đầu phải nhỏ hơn giá trị cuối

    2/

    uses crt;

    var i,n,s: integer;

    begin

    clrscr;

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

    for i:=1 to n do s:=s+i;

    writeln (‘tong la: ‘,s);

    readln;

    end.

    3/

    uses crt;

    var i,n,s: integer;

    begin

    clrscr;

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

    for i:=1 to n do if i mod 2<>0 then s:=s+i;

    writeln (‘tong la: ‘,s);

    readln;

    end.

    4/

    uses crt;

    var i,n,s: integer;

    begin

    clrscr;

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

    for i:=1 to n do if i mod 2=0 then s:=s+i;

    writeln (‘tong la: ‘,s);

    readln;

    end.

    5/

    uses crt;

    var i,n,s: integer;

    begin

    clrscr;

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

    n:=n*10+2;

    i:=2;

    repeat

    i:=i+10;

    s:=s+i;

    until i=n;

    writeln (‘tong la: ‘,s);

    readln;

    end.

    9/

    uses crt;

    var i,n,s: longint;

    begin

    clrscr;

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

    n:=n*10+2;

    i:=2;

    repeat

    i:=i+10;

    s:=s*i;

    until i=n;

    writeln (‘tong la: ‘,s);

    readln;

    end.

    4 câu còn lại bạn khongbiet_20 trả lời nha

    Bình luận
  2. 6. hình 1

    7. hình 2

    8. hình 3

    9. hình 4

    10.

         Câu 6: Nhập x = 5

                    P=1.2.3.4.5=120

         Câu 7: Nhập x = 9

                    P=1.3.5.7.9=945

         Câu 8: Nhập x = 8

                    P = 2.4.6.8 =384

         Câu 9: Nhập x = 5

                    P=12 . 22 . 32 . 42 . 52=18 450 432

    1-neu-cu-phap-cua-cau-lenh-lap-voi-so-lan-biet-truoc-va-giai-thich-cac-thanh-phan-co-trong-cu-ph

    Bình luận

Viết một bình luận