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.

uses crt;

var ly,toan,van:real;

begin

clrscr;

repeat

write('Diem Toan='); readln(toan);

write('Diem Van='); readln(van);

write('Diem Ly='); readln(ly);

until (toan>0) and (van>0) and (ly>0);

writeln('Diem trung binh cua 3 mon la: ',(toan+van+ly)/3:4:2);

readln;

end.

15 tháng 12 2020

15 tháng 12 2020

Không có họ tên và số báo danh ạ ?

20 tháng 10 2021

Xử lí những dữ liệu là điểm ba môn Toán,Văn, Anh

Những kiểu dữ liệu đó phải có kiểu số thực

18 tháng 11 2021

Mn giúp e vs ạ

18 tháng 11 2021

bên trường mik ko học Tin

 

uses crt;

var a,b,c:real;

begin

clrscr;

write('Nhap diem Toan:'); readln(a);

write('Nhap diem Van:'); readln(b);

write('Nhap diem Anh:'); readln(c);

writeln('Diem trung binh la: ',(a+b+c)/3:4:2);

readln;

end.

28 tháng 4 2021

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

28 tháng 4 2021

thank

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

uses crt;

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

i,n:integer;

begin

clrscr;

n:=5;

for i:=1 to n do 

  begin

   readln(a[i],b[i],c[i]);

end;

for i:=1 to n do 

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

for i:=1 to n do 

  writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);

readln;

end.