Viết chương trình nhập từ bàn phím những thông tin sau cho n học sinh của mọi lớp (n là số nguyên dương) In ra họ và tên , điểm toán văn anh, tổng điểm , điểm trung bình của học sinh.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
KD
30 tháng 10 2016
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.
TM
30 tháng 10 2016
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
L
8 tháng 11 2016
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.
28 tháng 11 2021
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.
10 tháng 5 2021
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.
10 tháng 5 2021
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.