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
Nguyễn Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 4 2021 lúc 13:34

uses crt;

var x:real;

begin

clrscr;

repeat

  write('Nhap diem:'); readln(x);

until (0<=x) and (x<=10) and ((frac(x)=25) or (frac(x)=5) or (frac(x)=75) or (frac(x)=0));

writeln(x:4:2);

readln;

end.

Xuân An Lê Nguyễn
Xem chi tiết
Dan_hoang
Xem chi tiết
Bùi Anh Tuấn
15 tháng 12 2020 lúc 19:59

Kiều Vũ Linh
18 tháng 12 2020 lúc 10:17

var hoten,sbd:string;

t,l,h,s:real;

begin

write('Nhap ho ten ');readln(hoten);

write('Nhap so bao danh);readln(sbd);

write('Nhap diem toan = ');readln(t);

write('Nhap diem ly = ');readln(l);

write('Nhap diem hoa = ');readln(h);

s:=t+l+h;

if s >= 15 then write('Ban da trung tuyen')

else write('Ban khong trung tuyen');

readln;

end.

Võ Thu Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:53

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.

hocgioi123
Xem chi tiết
Phía sau một cô gái
10 tháng 5 2023 lúc 19:28

program SoSanhDiem;

var

      DiemManh, DiemThanh: real;

begin

      write('Nhap diem cua ban Manh: ');

      readln(DiemManh);

      write('Nhap diem cua ban Thanh: ');

      readln(DiemThanh);

      if DiemManh > DiemThanh then

            writeln('Ban Manh dat diem cao hon ban Thanh.')

      else if DiemManh < DiemThanh then

            writeln('Ban Thanh dat diem cao hon ban Manh.')

      else

            writeln('Hai ban dat diem bang nhau.');

      readln;

end.

Hoàng1771
Xem chi tiết
Đình Phong
Xem chi tiết
Đình Phong
18 tháng 11 2021 lúc 20:25

Mn giúp e vs ạ

Julie
18 tháng 11 2021 lúc 21:04

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

 

lê thị bích ngọc
19 tháng 11 2021 lúc 16:44

Chương trình :

#include<iostream>

using namespace std;

int main() {

   int a, b, c;

   cout << "điểm toán : "; cin >> a;

   cout << "điểm lý : "; cin >> b;

   cout << "điểm hóa : "; cin >> c;

   cout << "tổng điểm ba môn là : " << a + b + c;

 return 0;

}

mô tả :

tạo ba biến a, b, c tượng trưng cho ba con điểm toán, lý, hóa có thể nhập từ bàn phím.

in ra màn hình tổng ba biến.

xác đinh đề :

Nhìn đề ta thấy

Minh Ngọc
Xem chi tiết
hocgioi123
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 15:30

Program HOC24;

var a,b: real;

begin

write('Nhap diem cua Manh: '); readln(a);

write('Nhap diem cua Thanh: '); readln(b);

if a>b then write('Diem cua ban Manh cao hon ban Thanh');

if a<b then write('Diem cua ban Thanh cao hon ban Manh');

if a=b then write('Diem cua ban Manh bang ban Thanh');

readln

end.

Nguyễn Phạm Thanh Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 4 2021 lúc 19:39

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.