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

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.