Quảng cáo
2 câu trả lời 322
program dientich;
uses crt;
var S,a:integer;
begin
writeln('nhap a');
readln(a);
S:=a*a;
writeln('ketqua',S);
readln;
end.
uses crt;
var S,a:integer;
begin
writeln('nhap a');
readln(a);
S:=a*a;
writeln('ketqua',S);
readln;
end.
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
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 cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45411 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34840 -
Đã trả lời bởi chuyên gia
30638 -
Hỏi từ APP VIETJACK28217
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22413
Gửi báo cáo thành công!
