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