Viết chương trình nhập vào từ bàn phím hai số thực a và b . Tính chu vi và diện tích hình chữ nhật rồi đưa kết quả ra màn hình
2 câu trả lời
var a,b,s:integer;
begin
write('nhap so a: ');readln(a);
writeln('nhap so b: ');readln(b);
s := a*b;
write(s)
end.
Bạn bấm alt + f5 để xem kết quả của diện tích nhá
Program BT;
Uses crt;
Var a, b, p ,s: real;
Begin
Clrscr;
Write('Nhap a = '); readln(a);
Write('Nhap b = '); readln(b);
s:=a*b;
p:=(a+b)*2;
Writeln('Chu vi la: ',p:0:2);
Writeln('Dien tich la: ',s:0:2);
Readln
End.
