Chương trình đơn giản

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

Câu 1 viết chương trình nhập n từ bàn phím ( n là số kw điện có kiểu số nguyên). tính tiền điện và in kết quả ra màn hình ( biết rằng tiền điện= số kw*1500).

câu 2 viết chương trình tính tổng bình phương 2 số nguyên x,y( x,y nhập từ bàn phím).

câu 3 viết chương trình nhập vào điểm của 3 môn toán lí hóa. tính trung bình cộng của chúng. nếu trung bình công lớn hơn hoặc bằng 5 thì in kết quả ra màn hình ĐẠT, ngược lại in ra màn hình CHƯA ĐẠT

Nguyễn Lê Phước Thịnh
14 tháng 11 2020 lúc 20:13

Câu 1:

uses crt;

var n:longint;

begin

clrscr;

write('Nhap so kw dien:'); readln(n);

writeln('So tien dien phai tra la: ',n*1500);

readln;

end.

Câu 2:

uses crt;

var x,y:longint;

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

writeln('Tong binh phuong hai so la: ',sqr(x)+sqr(y));

readln;

end.

Câu 3:

uses crt;

var toan,li,hoa,tbc:real;

begin

clrscr;

write('Nhap diem mon Toan:'); readln(toan);

write('Nhap diem mon Li:'); readln(li);

write('Nhap diem mon Hoa:'); readln(hoa);

tbc:=(toan+li+hoa)/3;

writeln('Diem trung binh cong la: ',tbc:4:2);

if tbc>=5 then writeln('DAT')

else writeln('CHUA DAT');

readln;

end.

phấn ngọc
15 tháng 11 2020 lúc 12:30

thank you


Các câu hỏi tương tự
Hoàng lĩnh
Xem chi tiết
Thái Bảo
Xem chi tiết
Hồ Thị Thủy Tiên
Xem chi tiết
Anh Thư
Xem chi tiết
Hà Phương
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Nam Phạm An
Xem chi tiết