Cho bài toán sau: Nhập vào từ bàn phím hai số nguyên là a và b. Tính tích và trung bình cộng của chúng để in các kết quả ra màn hình. Gợi ý: Gọi t là biến để lưu kết quả tính tích cuả hai số trên; Gọi tbc là biến để lưu kết quả tính trung bình cộng cuả hai số trên; Yêu cầu: Điền câu trả lời vào chỗ trống để hoàn thành chương trình sau. LƯU Ý: CÁC ĐÁP ÁN KHÔNG CHỨA DẤU CÁCH. Program bai_tap; Var .................. ; t: longint ; tbc: .................. ; Begin writeln(' nhap vao hai so a va b ='); .................. ; t := a *b ; tbc := (a +b) /2 ; writeln(' tich =',.................. ) ; writeln('trung bình cộng =', tbc) ; readln; End.

2 câu trả lời

program bai_tap;

var a, b : integer; t : longint; tbc : real;

begin

writeln('nhap vao hai so a va b = '); readln(a, b);

t := a * b;

tbc := (a + b) / 2;

writeln('tich = ', t);

writeln('trung binh cong = ', tbc);

readln

end.

Chữa:

Program bai_tap;
Var a,b:longint;
       t: longint ;
       tbc:real ;
Begin
writeln(' nhap vao hai so a va b =');
read(a,b);
t := a *b ;
tbc := (a +b) /2 ;
writeln(' tich =',t ) ;
writeln('trung bình cong =', tbc) ;
readln;
End.

Câu hỏi trong lớp Xem thêm