Viết phương trình nhập bốn số thực a, b, c, d từ bàn phím. Tính và đưa ra màn hình bình phương các số không âm và lập phương các số âm
1 câu trả lời
Program BTT;
Uses crt;
Var a,b,c,d: real;
Begin
Clrscr;
Write('Nhap a,b,c,d: '); Readln(a,b,c,d);
If a<0 then a:=sqr(a)*a
Else a:=sqr(a);
If b<0 then b:=sqr(b)*b
Else b:=sqr(b);
If c<0 then c:=sqr(c)*c
Else c:=sqr(c);
If d<0 then d:=sqr(d)*d
Else d:=sqr(d);
Write(a:10:2,b:10:2,c:10:2,d:10:2);
Readln
End.
