Những câu hỏi liên quan
15 Nguyễn Hoàng gia huy
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 18:48

uses crt;

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

i,n,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to n do 

  begin

 if (a[i]>=8) then inc(dem1);

if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);

if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);

if (a[i]<5) then inc(dem4);

end;

writeln('So hoc sinh gioi la: ',dem1);

writeln('So hoc sinh kha la: ',dem2);

writeln('So hoc sinh trung binh la: ',dem3);

writeln('So hoc sinh kem la: ',dem4);

readln;

end.

Bình luận (0)
thiện nhân
Xem chi tiết
nhung phan
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 3 2022 lúc 23:01

Câu 1: A

Câu 2: B
Câu 3: C

Câu 4: A

Câu 5: D

Câu 6: C

Câu 7: A

Câu 8: C

Câu 9: B

Bình luận (0)
Phạm Công Trương
Xem chi tiết
Phạm Công Trương
30 tháng 12 2021 lúc 9:40

Help me pls

Bình luận (0)
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:20

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

tb=((a+b)*2+c)/5;

if (tb>=9) cout<<"Gioi";

else if ((tb>=7) and (tb<9)) cout<<"Kha";

else if ((tb>=5) and (tb<7)) cout<<"Trung binh";

else cout<<"Yeu";

return 0;

}

Bình luận (0)
Phạm Công Trương
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:19

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

tb=((a+b)*2+c)/5;

if (tb>=9) cout<<"Gioi";

else if ((tb>=7) and (tb<9)) cout<<"Kha";

else if ((tb>=5) and (tb<7)) cout<<"Trung binh";

else cout<<"Yeu";

return 0;

}

Bình luận (0)
Trần Đức Vĩnh
Xem chi tiết
Lê Vũ Anh Khôi
Xem chi tiết
Lê Hải Dương
21 tháng 2 2022 lúc 20:08

6,25

h cho mik với

Bình luận (0)
 Khách vãng lai đã xóa
Thanh Tuyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 11 2019 lúc 17:19

câu 1:

uses crt;

var a,b,c,d,ln:integer;

begin

clrscr;

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

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('so lon nhat la: ',ln);

readln;

end.

câu 2:

uses crt;
var v,t,l:integer;
tb:real;
begin
clrscr;
write('nhap diem van:'); readln(v);
write('nhap diem toan:'); readln(t);
write('nhap diem ly:'); readln(l);
tb:=(v*2+t*2+l)/5;
if tb<5 then writeln('kem');
if (tb>=5) and (tb<7) then writeln('trung binh');
if (tb>=7) and (tb<8) then writeln('kha');
if tb>=8 then writeln('gioi');
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa
Đinh Hoàng Yến Nhi
Xem chi tiết
Nguyễn Tuấn Dĩnh
17 tháng 1 2019 lúc 17:32

a) Số điểm dưới 5 : 0

b) Số điểm từ 5 đến 6 : 0

c) Số điểm từ 7 đến 8 : 6

d) Số điểm từ 9 đến 10 : 10

Bình luận (0)