x,y,z:real;

+ Byte có miền giá trị từ 0 đến 255.

   + Integer có miền giá trị từ -32768 đến 32767

   + Word có miền giá trị từ 0 đến 65535

   + Longint có miền giá trị từ -2147483648 đến 2147483647

   Đáp án: B

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.

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.

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

program TongCacSoNguyen;

var
  N, i, soNguyen, tong: integer;

begin
  // Nhập số lượng N
  write('Nhap so luong N: ');
  readln(N);

  // Khởi tạo tổng
  tong := 0;

  // Nhập và tính tổng các số nguyên
  for i := 1 to N do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(soNguyen);
    tong := tong + soNguyen;
  end;

  // In ra màn hình tổng
  writeln('Tong cua cac so nguyen la: ', tong);

  readln;
end.

Đáp án đúng : A

Đáp án đúng : B

giúp Mình vs.

Mình cần gấp lắm

Chỉ cần hai biến a,b kiểu nguyên là đủ rồi

Program HOC24;

var i,n: integer;

S,P: longint;

begin

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

{..............................................}

readln

end.

-----------------------------------------------------------

Bạn điền vào {........................} theo từng bài nhé

a) S:=0; 

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

write('S= ',s);

b)

S:=0;

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

write('S= ',s);

c) P:=1;

for i:=1 to N do if i mod 2=0 then p:=p*i;

write('P= ',p);

d)

P:=1;

for i:=1 to N do if i mod 2=1 then p:=p*i;

write('P= ',p);