Viết chương trình pascal cho phép người dùng nhập độ dài cạnh a của hình vuông.Tính chu vi và diện tích hình vuông và in ra kết quả ra màn hình

2 câu trả lời

Program dientich;
Uses crt;
Var a, S, C :real;
Begin
Clrscr;
Write('Nhap do dai canh a: ');
Readln(a);
S := a*a;

C := 4*a;
Writeln(' dien tich hinh vuong la :', S:8:2);

Writeln(' chu vi hinh vuong  la :', C :8:2);
Readln
End.

Uses crt;
Var a:integer;
Begin
Clrscr;
Write('canh a= ');
Readln(a);
Writeln(a*a);

Writeln(4*a);
Readln
End.