uses crt;
var x,y,t: real;
begin
clrscr;
readln(x,y);
t:=x*x+y*y;
if t<=0 then writeln('Z=',t:4:1);
if t>0 then writeln('Z=',sqr(x+y):4:1);
readln
end.

Hình tự vẽ

a, Trong tam giác ABC cân tại A có AH là đường cao

\(\Rightarrow\)H là trung điểm của BC

\(\Rightarrow CH=\dfrac{BC}{2}=\dfrac{6}{2}=3\left(cm\right)\)

áp dụng định lí pytago cho tam giác vuoog AHC có

\(AC^2=AH^2+HC^2\)

\(\Rightarrow AH=\sqrt{AC^2-HC^2}=\sqrt{25-9}=4\left(cm\right)\)

b, Vì AH là đường cao của tam giác cân ABC 

\(\Rightarrow AH\) là trung tuyến

mà G là trọng tâm của tam giác ABC

\(\Rightarrow G\in AH\)

Hay A,H,G thẳng hàng

c, Xét tam giác BGH vuông tại H và tam giác CGH vuông tại H có

GH chung

BH=HC

\(\Rightarrow\)\(\Delta BGH=\Delta CGH\left(ch-cgv\right)\)

bài 6

uses crt;
var a,b,x: INTEGER;
s,v,t: real;
begin
clrscr;
readln(a,b,x);
s:=a*b;
v:=(x*(b-x))/2;
t:=s/2;
writeln(s:4:1);
writeln(v:4:1);
write(t:4:1);
readln
end.

Bài 5

uses crt;
var r: integer;
s,t: real;
begin
clrscr;
readln(r);
s:=r*r*3.14;
t:=2*3.14*r;
writeln(s:4:2,'  ',t:4:2);
readln
end.

Bài 4

uses crt;
var a,b: integer;
c,s,d:real;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then
begin
c:=sqrt(a*a+b*b);
d:=(a+b+c)/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(c:4:2,'  ',s:4:2);
end
else writeln('nhap lai');
readln
end.

cũng muốn tham gia mà biết tin muộn quá:((

\(a,ĐK:x\ge\dfrac{2}{5}\)

\(\Leftrightarrow5x-2=9\)

\(\Leftrightarrow5x=11\)

\(\Leftrightarrow x=\dfrac{11}{5}\)

\(b,\)

\(\Leftrightarrow x^2-5x+4=25\)

\(\Leftrightarrow x^2-5x-21=0\)

\(\Leftrightarrow\left[{}\begin{matrix}x=\dfrac{5+\sqrt{109}}{2}\\x=\dfrac{5-\sqrt{109}}{2}\end{matrix}\right.\)

\(c,\)

\(\Leftrightarrow6\sqrt{x+2}-3\sqrt{x+2}+9\cdot\sqrt{\dfrac{x+2}{9}}=6\sqrt{2}\)

\(\Leftrightarrow2\sqrt{x+2}-\sqrt{x+2}+3\cdot\sqrt{\dfrac{x+2}{9}}=2\sqrt{2}\)

Đặt \(\sqrt{x+2}=a\) ta có (1)

\(2a-a+3\cdot\dfrac{a}{\sqrt{9}}=2\sqrt{2}\)

\(\Leftrightarrow a+3\cdot\dfrac{a}{3}=2\sqrt{2}\)

\(\Leftrightarrow2a=2\sqrt{2}\)

\(\Leftrightarrow a=\sqrt{2}\)

Thay \(a=\sqrt{2}\) vào (1) ta có

\(\sqrt{x+2}=\sqrt{2}\)

\(\Leftrightarrow x+2=2\)

\(\Leftrightarrow x=0\)

for i:=1 to 5 do writeln('a');

uses crt;
var a: array[1..100] of integer;
i: longint;
begin
clrscr;
for i:=1 to 20 do readln(a[i]);
writeln('day vua nhap la:');
for i:=1 to 20 do write(a[i],' ');
readln
end.