không biết nữa

40 học sinh đạt ít nhất 1 điểm 10: tức là 1,2,3,4 ﴾không có HS đạt 5 điểm 10 và nhiều hơn﴿

27 học sinh đạt ít nhất 2 điểm 10: tức là 2,3,4

19 học sinh đạt ít nhất 3 điểm 10: tức là 3,4

14 học sinh đạt ít nhất 4 điểm 10: tức là 4 Vậy ta có kết quả bằng cách đi ngược từ dưới lên:

14 học sinh đạt 4 điểm 10:

14.4 = 56 ﴾điểm 10﴿

19 ‐ 14 = 5 học sinh đạt 3 điểm 10:

3x5 = 15 ﴾điểm 10﴿

27 ‐ 19 = 8học sinh đạt 2 điểm 10:

8.2 = 16 ﴾điểm 10﴿

40 ‐ 27 = 13học sinh đạt 1 điểm 10:

13.1 = 13 ﴾điểm 10﴿

Tổng cộng có:

56 + 15 + 16 + 13 = 100 ﴾điểm 10﴿

Vậy tổng số điểm 10 môn toán của của lớp 6A đạt được trong học kì I là 100 điểm 10.

Số học sinh đạt đúng 1 điểm 10 là :

40 - 27 = 13 ( bạn )

Số học sinh đạt đúng 2 điểm 10 là :

27 - 19 = 8 ( bạn )

Số học sinh đạt đúng 3 điểm 10 là :

19 - 14 = 5 ( bạn )

Vì có 14 bạn đạt ít nhất 4 điểm 10 mà lại không có ai được 5 điểm 10. Vậy số bạn được 4 điểm 10 là 14 bạn.

Vậy số điểm 10 là :

( 13 x 1 ) + ( 8 x 2 ) + ( 5 x 3 ) + ( 14 x 4 ) = 100 ( điểm 10 )

Đáp số : 100 điểm 10

Bài 1 :

Uses crt;

Var x,y:integer;

Begin

clrscr;

Readln(x,y);

Write('Tong cua x,y la ',x+y);

Readln

End.

Bài 2 :

Uses CRT;

var x,y,z:integer; tbc:real;

begin

clrscr;

readln(x,y,z);

tbc:=(a+b+c)/3;

Write('Trung binh cong x,y,z la ',tbc:4:2);

Readln

End.

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

write('a='); readln(a);

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.