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