Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lan Anh Vũ Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 11 2021 lúc 23:55

a: int m;

double q;

Đà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

 

Trương Minh Hiếu
Xem chi tiết
Keiko Hashitou
23 tháng 3 2022 lúc 8:22

xin bn sửa hộ mk cái hình nền 🙏🏻

Minh Anh sô - cô - la lư...
23 tháng 3 2022 lúc 8:24

thay avatar đi bạn rồi mik giúp ko là bị khóa acc đấy

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

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.

 

 
Trần Thanh Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:01

Câu 1: B

Câu 2:B

Câu 3: D

Câu 4: C

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

B

C

A

A

Trâm Vương
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 21:36

uses crt;

var k,x,y:integer;

begin

clrscr;

readln(k);

x:=k mod 5;

y:=k div 5;

writeln(k,'/5=',x,' du ',y);

readln;

end.

Trần Linh Chi
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:27

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.