Cho 1 số nguyên là diện tích của hình chữ nhật biết rằng chiều rộng bằng 3 phần 5 chiều dài tính chiều rộng chìêu dài. Khai báo biến và viết câu lệnh
2 câu trả lời
program hcn;
var S:integer;
cd:real;
begin
readln(S);
cd:=sqrt(5/3*S);
writeln('Chieu dai hcn la: ',cd:0:3);
writeln('Chieu rong hcn la: ',3/5*cd:0:3);
readln;
end.
viết theo pascal nha
var cd,s,cr:real;
begin
write('Nhap s: '); readln(s);
cd:=sqrt(s*5/3);
cr:=cd*3/5;
writeln('Chieu dai la: ',cd:0:2);
write('Chieu rong la: ',cr:0:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm
