Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Câu 4:
program tinh;
uses crt;
var a,b,x:real;
begin
clrscr;
writeln('nhap a: '); readln( a);
write(' nhap b: '); readln( b);
if ((a=0 ) and (b=0)) then write('phuong trinh vo so nghiem')
else
if ((a=0) and (b<>0)) then write('pt vo nghiem')
else
begin
x:=-b/a;
write('phuong trinh co nghiem x :',x:8:2);
readln;
end;
end.
Câu 5:
Program dien_tich;
Uses crt;
Var a, b, d : integer;
Begin
Clrscr;
Write('Nhap do dai canh a :');readln(a);
Write('Nhap do dai canh b :');readln(b);
d := sqrt(a*a + b*b);
writeln('do dai dương cheo la :', d);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin