Question

Bài toán: tính diện tích hình chữ nhật S, với M là chiều dài và N là chiều rộng (n phẩy m là các số nguyên được nhập từ bàn phím)

a) yêu cầu khai báo các biến và kiểu dữ liệu của biến

b) viết lệnh nhập biến từ bàn phím

c) viết lệnh tính diện tích

d) viết lệnh in giá trị diện tích ra màn hình

(Ai làm nhanh đầu tiên em sẽ cho like mai em thì rồi ạ:((((

Answer 1

var m,n,s:int64;

begin

write('nhap m,n ');readln(m,n);

s:=1;

s:=s*m;

s:=s*n;

write('dien tich hinh chu nhat la ',s);readln;

end.

Answer 2

dễ thế thôi

Answer 3

Program Sara_Trang;

uses crt;

var s,m,n:integer;

Begin

clrscr;

Write('Nhap chieu dai:'); Readln(m);

Write('Nhap chieu rong:'); Readln(n);

s:=m*n;

Writeln('Dien tich cua hinh chu nhat la:');

Readln

End.

Answer 4

Mik sửa nha. Thông cảm họ mik.

Program Sara_Trang;

uses crt;

var s,m,n:integer;

Begin

clrscr;

Write('Nhap chieu dai:'); Readln(m);

Write('Nhap chieu rong:'); Readln(n);

s:=m*n;

Writeln('Dien tich cua hinh chu nhat la:',s);

Readln

End.

Answer 5

dễ ẹt

uses crt;

var n,m,s:integer;

begin

clrscr;

repeat

write('nhap chieu dai: '); readln(m);

write('nhap chieu rong:'); readln(n);

if (m=n) or (m=0) or (n=0) then writeln('sai, nhap lai');

until (m<>n) and (m>0) and (n>0);

s:=m*n;

writeln(''dien tich hinh chu nhat co chieu dai la ',m,' va chieu rong la ',n,' la: ',s);

readln;

end.