Quảng cáo
1 câu trả lời 958
uses crt;
var a,dt:integer;
begin
clrscr;
write('a='); readln(a);
dt:=sqr(a);
if a>0 then
begin
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a *** hon 0');
readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Gửi báo cáo thành công!
