Nhanh nhá 1 Cho một dãy số từ 1 đến n với n nhập từ bàn phím.Tính tổng các số lẻ trong dãy đó 2 Tính x^y với x,y nhập từ bàn phím

Bởi

Nhanh nhá
1 Cho một dãy số từ 1 đến n với n nhập từ bàn phím.Tính tổng các số lẻ trong dãy đó
2 Tính x^y với x,y nhập từ bàn phím

0 bình luận về “Nhanh nhá 1 Cho một dãy số từ 1 đến n với n nhập từ bàn phím.Tính tổng các số lẻ trong dãy đó 2 Tính x^y với x,y nhập từ bàn phím”

  1. Câu 1:

    program Cau_1;

    uses crt;

    var n,i,T: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

                  if i mod 2<>0 then T:=T+i;

             write(‘Tong cac so le trong day = ‘,T);

             readln

    End.

    Câu 2:

    program Cau_2;

    uses crt;

    var x,y,i,T: integer;

    Begin

             clrscr;

             write(‘Nhap so x: ‘); readln(x);

             write(‘Nhap mu y: ‘); readln(y);

             for i:=1 to y T:=T*x;

             write(x,’^’,y,’ = ‘,T);

             readln

    End.

    Bình luận

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