Question

tạo chương trình nhập độ dài 2 cạnh của hình chữ nhật và in ra màn hình diện tích hình chữ nhật đó

Answer 1

#TK

program hcn;

uses crt;

var d,r,dt:longint;

cv:real;

begin

write('nhap chieu dai va chieu rong cua hcn:');

readln(d,r);

dt:=d*r;

writeln(' dien tich hcn do la:',dt);

readln

end.

Answer 2

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln(a*b);

readln;

end.