Question

Viet chuong trinh xet hoc luc cua em biet rang:diem trung binh lon hoac bang 8.0thi xep loai gioi,con lai xep loai kha.Voi diem trung binh cua 3 mon Toan,Van,Tin duoc nhap tu ban phim.

a) Tinh diem trung binh cua 3 mon do.

b )Xet hoc luc cua em

Giup mk voi can gap.mai thi roi😓

Answer 1

a)

Program bt;

Var a,b,c,tb:real;

Begin

Writeln('nhap a:=');

Readln(a);

Writeln('nhap b:=');

Readln(b);

Writeln('nhap c:=');

Readln(c);

tb:=a+b+c/3;

Writeln('diem trung binh cua ba mon:=',tb);

Readln;

End.

b)

Program bt;

Var tb:real;

Begin

Writeln('nhap tb:=');

Readln(tb);

if tb >=8,0 then writeln('hoc luc gioi') else writeln('hoc luc kha');

Readln;

End.

Answer 2