Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
loli
Xem chi tiết
Bùi Anh Tuấn
4 tháng 1 2021 lúc 20:26

Nguyễn Lê Phước Thịnh
4 tháng 1 2021 lúc 21:26

uses crt;

var diem:real;

begin

clrscr;

repeat

write('Nhap diem trung binh:'); readln(diem);

until (0<=diem) and (diem<=10);

if diem<5 then writeln('Xep loai yeu')

else if (5<=diem) and (diem<6.5) then writeln('Xep loai trung binh')

else if (6.5<=diem) and (diem<8.0) then writeln('Xep loai kha')

else writeln('Xep loai gioi');

readln;

end.

loli
4 tháng 1 2021 lúc 20:15

help

thành phạm
Xem chi tiết
thành phạm
19 tháng 12 2019 lúc 22:23

hộ mình với ạ 

Khách vãng lai đã xóa
Nguyễn Thị Thu Hiền
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2019 lúc 21:33

uses crt;
var t,v,dtb:real;
begin
clrscr;
write('nhap diem toan:'); readln(t);
write('nhap diem van:'); readln(v);
dtb:=(t+v)/2;
writeln('diem trung binh la: ',dtb:4:2);
if dtb<5 then writeln('xep loai yeu')
else if (dtb>=5) and (dtb<6.5) then writeln('xep loai trung binh')
else if (dtb>=6.5) and (dtb<8) then writeln('xep loai kha')
else writeln('xep loai gioi');
readln;
end.

Khách vãng lai đã xóa
Thạch Ngọc Trúc Ly
28 tháng 12 2019 lúc 20:38

Program bt;

Var t,v,dtb:real;

Begin

Writeln('nhap t:=');

Readln(t);

Writeln('nhap v:=');

Readln(v);

dtb:=(t+v)/2;

Writeln('diem trung binh là:=',dtb);

if dtb<5.0 then writeln('xep loai yeu');

if 5.0<=dtb<=6.5 then writeln('xep loai trung binh');

if 6.5<=dtb<=8.0 then writeln('xep loai kha');

if dtb>=8.0 then writeln('xep loai gioi');

Readln;

End.

Khách vãng lai đã xóa
Trương Quang Dũng
28 tháng 12 2019 lúc 21:45

#include <bits/stdc++.h>

using namespace std;

int man()

{

double a,b;

cin >> a >> b;

double t = ( a + b ) / 2;

if (t > 8) cout << " Gioi ";

else if (t > 6.5) cout << " Kha";

else if (t > 5) cout << "Trung binh ";

else cout << " Yeu ";

}

Khách vãng lai đã xóa
Nguyễn Gia Phúc
Xem chi tiết
Trungnghia
10 tháng 4 2021 lúc 15:45

Var dtb:real;
Begin
 Repeat
  Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
 Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
 End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )

Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:23

uses crt;

var lt,th:real;

begin

clrscr;

write('Nhap diem LT:'); readln(lt);

write('Nhap diem TH:'); readln(th);

if (lt+th)/2>=5 then writeln('Dau')

else writeln('Rot');

readln;

end.

Zero
Xem chi tiết
Zero
23 tháng 12 2021 lúc 10:47

Help

lê thị bích ngọc
23 tháng 12 2021 lúc 15:00

Mình viết ở ngôn ngữ c++ nhé:

#include<iostream> 

using namespace std; 

int main() { 

double a; 

  cout << "Diem trung binh : "; cin >> a;

if (a >= 1 && a <= 10) { 

  if (a >= 8) { 

    cout << "Gioi"; 

} else if (a >= 6.5 && a <= 7.9) { 

    cout << "kha"; 

} else if (a <= 6.4 && a >= 5) { 

    cout << "trung binh"; 

} else { 

    cout << "yeu"; 

     }

} else {

    cout << "Diem so khong hop le";

     } 

return 0; 

}

 

Tùng anh
26 tháng 4 2022 lúc 20:53

Câu trả lời bsyfxsahsjijauga từ

 

Lê Nguyễn Hoàng Vũ
Xem chi tiết
Nguyễn Anh Dũng
9 tháng 12 2021 lúc 20:11

var t,v,a,dtb: real;

begin

    writeln(' diem mon Toan la: ');

    read(t);

    writeln(' diem mon Van la: ');

    read(v);

    writeln(' diem mon Anh la: ');

    read(a);

    dtb = ( t + v + a)/3

    if ( dtb >= 5 ) then 

           writeln(' duoc len lop');

    else

           writeln(' thi lai');

    readln;

end.

Thanh Hải
Xem chi tiết
Nguyễn Tuấn Anh
Xem chi tiết
Phía sau một cô gái
10 tháng 4 2023 lúc 20:20

program DiemTB;

var

      diemToan, diemVan, diemTB: real;

begin

      write('Nhap diem mon Toan: ');

      readln(diemToan);

      write('Nhap diem mon Van: ');

      readln(diemVan);

      diemTB := (diemToan + diemVan) / 2;

      writeln('Diem trung binh: ', diemTB:0:2);

      if diemTB >= 5 then

            writeln('Chuc mung! Ban da dau ky thi.')

      else

            writeln('Rat tiec! Ban da truot ky thi.');

      readln;

end.

Uyên Nguyễn Ngọc Nhã
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 7:13

uses crt;

var a,b,c,tb:array[1..10]of real;

ln,nn:real;

i:integer;

begin

clrscr;

for i:=1 to 10 do readln(a[i],b[i],c[i]);

for i:=1 to 10 do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

ln:=0;

nn:=10;

for i:=1 to 10 do 

  begin

if ln<tb[i] then ln:=tb[i];

if nn>tb[i] then nn:=tb[i];

end;

writeln(ln:4:2);

writeln(nn:4:2);

for i:=1 to 10 do 

 begin

if tb[i]>=5 then writeln('Ban thu ',i,' Dat')

else writeln('Ban thu ',i,'Chua dat');

end;

readln;

end.