Nhập trình Pascal trung bình cộng của A và B, tính A và B nhập vào từ máy
2 câu trả lời
program CT;
uses crt;
var a,b:byte;
kq:byte;
Begin
Writeln('Nhap so a');
Readln(a);
Writeln('Nhap so b');
Readln(b);
kq:=(a+b)/2;
Writeln('Trung binh cong cua a va b la ',kq);
Readln;
end.
Program Hotboy ;
Uses crt;
Var a,b : real;
Begin
Write('nhap a'); readln(a);
Write('nhap b'); readln(b);
Write('so trung binh cua hai so la',(a+b)/2 );
Readln
End.
Câu hỏi trong lớp
Xem thêm