Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nguyễn văn kiên
Xem chi tiết
Phúc Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 23:18

Câu 1: B

Câu 2: A

Không Tồn Tại Youtuber
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:25

Chọn B

Lâm Nhật Duy
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:54

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.

 

 
Thành Điền Lê Nguyễn
Xem chi tiết
Minh Nhân
4 tháng 2 2021 lúc 8:25

#TK

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do

s:=s+i;

write(s);

readln;

end.

 

Nguyễn Lê Phước Thịnh
4 tháng 2 2021 lúc 12:56

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=3 to 97 do 

  s:=s+i;

writeln(s);

readln;

end.

Tuấn Nguyễn
6 tháng 2 2021 lúc 10:50

b1;tim ssh cua day so cach deu tren cong thuc lop 5:(97-3):khoang canh +1; :))

b2;tinh tong bang cong thuc lop 5 sau : tong=(so dau + so cuoi)*ssh/2;

b3; xuat ra :))) 

Λşαşşʝŋ GΩD
Xem chi tiết
๖ۣۜHả๖ۣۜI
21 tháng 11 2021 lúc 14:31

B

C

A

A

Sa sa
Xem chi tiết
thảo nguyễn
19 tháng 11 2021 lúc 14:56

A

Chu Diệu Linh
19 tháng 11 2021 lúc 16:28

A

Đàm Mạnh Thảo
Xem chi tiết
Rin•Jinツ
24 tháng 11 2021 lúc 10:47

B

Huy Nekk
24 tháng 11 2021 lúc 10:49

B ?

ghan
24 tháng 11 2021 lúc 11:43

B

 

Thap Nguyen
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:51

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)

nguyễn văn đức
Xem chi tiết
Minh Hồng
5 tháng 1 2022 lúc 10:25

A

A