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.

10 tháng 4 2021

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 )

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.

19 tháng 12 2021

 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b;

tb=(a+b)/3;

cout<<fixed<<setprecision(1)<<tb<<endl;

if ((tb>=5) and (a>=3) and (b>=3)) cout<<"Dau";

else cout<<"Rot";

return 0;

}

19 tháng 12 2019

hộ mình với ạ 

10 tháng 4 2023

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.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

double tb=(a+b)/2;

if (tb>=5) cout<<"ket qua dat";

else cout<<"ket qua khong dat";

return 0;

}

30 tháng 12 2021

sao ko giống gì mình học vậy:) mình nhwos sương sương là program rồi đến uses crt j mà ta

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

write('Nhap so mon hoc='); readln(n);

for i:=1 to n do 

begin

repeat

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

until (0<=a[i]) and (a[i]<=10);

end;

for i:=1 to n do 

  write(a[i]:4:2,' ');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Diem trung binh mon la: ',t/n:4:2);

if t>=5 then writeln('Duoc len lop')

else writeln('Thi lai');

readln;

end.

23 tháng 12 2021

Help

23 tháng 12 2021

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; 

}

 

29 tháng 11 2017

program tongdiem;

uses crt;

var a,b,c,d,T:byte;{thang điểm 10 nha}

begin

clrscr;

write('Nhap diem mon thu nhat');readln(a);

write('Nhap diem mon thu hai');readln(b);

write('Nhap diem mon thu ba');readln(c);

write('Nhap diem mon thu tu');readln(d);

T:=a+b+c+d;

if T>=20 then write('Ban da dau voi so diem la: ',T:10:2)

else write('Ban da rot');

readln

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tbc;

int main()
{

cin>>a>>b>>c;

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

cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b+c<<endl;

cout<<"TBC la:"<<fixed<<setprecision(2)<<tbc;

return 0;

}