Tính chu vi và diện tích hình vuông biết cạnh là 1 số nguyên nhập từ bàn phím.

2 câu trả lời

Program dien_tich;
Uses crt;
Var a, dt, cv : integer;
Begin
Clrscr;
Write('Nhap do dai canh hinh vuong :');readln(a);
cv := a*4;
dt := a*a;
Writeln('Chu vi hinh vuong  la :', cv);
Writeln('Dien tich hinh vuong  la :', dt);
Readln
End.

Program baitap;

Uses crt;

Var a:integer;

Begin

Clrscr;

Write('Nhap do dai 1 canh:');

Readln(a);

Writeln('Chu vi hinh vuong:',a*4);

Writeln('Dien tich hinh vuong:',a*a);

Readln

End.

Câu hỏi trong lớp Xem thêm