cách lập trình tính diện tích hình vuông trong pascal

2 câu trả lời

Program dien_tich_hinh_vuong;

Uses crt;

Var a,S:real;

Begin

clrscr;

Write('canh a=');Readln(a);

Write('S=');Readln(S);

S:=a*a;

Readln

End.

program dientich;

uses crt;

var S,a:integer;

begin

writeln('nhap a');

readln(a);

S:=a*a;

writeln('ketqua',S);

readln;

end.

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