Mọi người giúp mình câu 2 và 3 ạ. Mình cảm ơn!!!
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
PK
0
PN
Mọi người giúp mình câu 3, câu 4 với. Mình cảm ơn ạ. Mình đang cần gấp lắm!!!
0
15 tháng 6 2023
4:
a: góc OBA+góc OCA=180 độ
=>OBAC nội tiếp
b: Xét (O) có
AB,AC là tiếp tuyến
=>AB=AC
mà OB=OC
nên OA là trung trực của BC
=>OA vuông góc BC tại H
=>AB^2=AH*AO
4 tháng 5 2021
Câu 1:
const fi='dulieu.dat';
fo='thaythe.out';
var f1,f2:text;
a:array[1..100]of string;
n,d,i,vt:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
begin
d:=length(a[i]);
vt:=pos('anh',a[i]);
while vt<>0 do
begin
delete(a[i],vt,3);
insert('em',a[i],vt);
vt:=pos('anh',a[i]);
end;
end;
for i:=1 to n do
writeln(f2,a[i]);
close(f1);
close(f2);
end.
4 tháng 5 2021
Câu 2:
uses crt;
const fi='mang.inp';
fo='sapxep.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
assign(f2,fo); rewrite(f2);
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(f1,a[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(f2,a[i]:4);
close(f1);
close(f2);
end.
LB
1
25 tháng 8 2021
Câu 3:
2: Xét tứ giác OKEH có
\(\widehat{OKE}=\widehat{OHE}=\widehat{KOH}=90^0\)
Do đó: OKEH là hình chữ nhật
mà đường chéo OE là tia phân giác của \(\widehat{KOH}\)
nên OKEH là hình vuông
