sqrt(x*y)+sqr(x-1)

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

câu 1:
 

program AlgorithmExample;

var
  T, n: integer;

begin
  // Bước 1
  T := 8;
  n := 1;

  // Bước 2
  while T < 99 do
  begin
    // Bước 3
    n := n + 3;
    T := T * n;
  end;

  // Bước 4
  writeln('Gia tri cua T: ', T);
  writeln('Gia tri cua n: ', n);

  readln;
end.
câu 2:
 

program StudentAverage;

var
  n, countAboveAverage: integer;
  sum, average, score: real;

begin
  // Nhập số lượng học sinh
  write('Nhap so luong hoc sinh (1-70): ');
  readln(n);

  // Kiểm tra điều kiện
  if (n < 1) or (n > 70) then
  begin
    writeln('So luong hoc sinh khong hop le.');
    readln;
    halt;
  end;

  // Khởi tạo biến
  countAboveAverage := 0;
  sum := 0;

  // Nhập và tính điểm trung bình
  for var i := 1 to n do
  begin
    write('Nhap diem cua hoc sinh ', i, ': ');
    readln(score);
    sum := sum + score;

    // Kiểm tra điều kiện điểm trung bình
    if score >= 5.0 then
      countAboveAverage := countAboveAverage + 1;
  end;

  // Tính điểm trung bình
  average := sum / n;

  // In ra kết quả
  writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
  writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');

  readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.

chỉ tui với 

a. 5*x*x-6*x+1

b. (2*x*y+1)*(2*x*y-1)

c. (x-1)/(x+1)

d. a/(a+1)+((a-1)*(a-1))/(a+2)

Trong ngôn ngữ lập trình (NNLT) Pascal chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học. Các phép toán +, -, x, : trong toán học sẽ được chuyển dổi thành +, -, *, / trong NNLT Pascal.

   Đáp án: C

Trong ngôn ngữ lập trình (NNLT) Pascal:

   + chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học.

   + Các phép toán +, -, x, :, trong toán học sẽ được chuyển đổi thành +, -, *, /, trong NNLT Pascal.

   +Các phép so sánh ≥, ≤, ≠, >, < , trong toán học sẽ được chuyển đổi thành >=, <=, <>, >, <, trong NNLT Pascal.

   Đáp án: D

Var a,b,s,p:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.

(khoog bt đúng ko)