Question

Hãy viết CT :

A) tính diện tích, chu vi hình vuông có cạnh là a đc nhập từ bàn phím

B) tính diện tích, chu vi hình chữ nhật , biết chìu dài a, chìu rộng b đc nhập từ bàn phím

C) tính tổng 2 sô a, b biết a, b là số nguyên nhập từ bàn phím

Answer 1

a)

uses crt;

var

a,S,C: integer;

begin

clrscr;

write('Nhap do dai canh hinh vuong: ');readln(a);

C:=a*4;

S:=a*a;

writeln('Chu vi hinh vuong la: ',C);

writeln('Dien tich hinh vuong la: ',S);

readln

end.

Answer 2

c)

uses crt;

var

a,b: integer;

begin

clrscr;

write('Nhap so thu nhat: ');readln(a);

write('Nhap so thu hai: ');readln(b);

writeln('Tong ',a,' va ',b,' la: ',a+b);

readln

end.

Answer 3

b)

uses crt;

var

a,b: integer;

begin

clrscr;

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

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

writeln('Chu vi hinh chu nhat la: ',(a+b)*2);

writeln('Dien tich hinh chu nhat la: ',a*b);

readln

end.