Những câu hỏi liên quan
LH
Xem chi tiết
NT
16 tháng 11 2021 lúc 23:55

a: int m;

double q;

Bình luận (0)
DT
Xem chi tiết
H24
24 tháng 11 2021 lúc 10:47

B

Bình luận (2)
HN
24 tháng 11 2021 lúc 10:49

B ?

Bình luận (0)
H24
24 tháng 11 2021 lúc 11:43

B

 

Bình luận (0)
TH
Xem chi tiết
KH
23 tháng 3 2022 lúc 8:22

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

Bình luận (1)
ML
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

Bình luận (2)
PM
Xem chi tiết
NT
11 tháng 12 2021 lúc 23:18

Câu 1: B

Câu 2: A

Bình luận (0)
LD
Xem chi tiết
TP
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.

 

 
Bình luận (0)
TM
Xem chi tiết
NT
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

Bình luận (0)
LG
Xem chi tiết
H24
21 tháng 11 2021 lúc 14:31

B

C

A

A

Bình luận (0)
TV
Xem chi tiết
NT
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.

Bình luận (1)
TC
Xem chi tiết
KL
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.

Bình luận (0)