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
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.
