uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

a: Sai

Sửa lại: For i:=1 to 5 do writeln('A');

b: Sai

For i:=1 to 5 do writeln('A');

c: Sai 

x:=5;

while x>=5 do

x:=x+5;

d: var x:array[1..10]of integer;

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Phai')

else writeln('Khong phai');

readln;

end.

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

\(\overrightarrow{BC}=\left(2;2\right)=2\left(1;1\right)\)

\(\Rightarrow\) đường thẳng BC nhận \(\left(1;-1\right)\) là 1 vtpt

Phương trình BC: \(1\left(x-1\right)-1\left(y-0\right)=0\Leftrightarrow x-y-1=0\)

BH vuông góc AC nên nhận \(\left(1;7\right)\) là 1 vtpt

Pt BH qua B: \(1\left(x-1\right)+7\left(y-0\right)=0\Leftrightarrow x+7y-1=0\)

Chắc bạn ghi sai đề, làm gì có tiếp tuyến CC'?

b/ A là giao điểm AB và AC nên tọa độ thỏa: \(\left\{{}\begin{matrix}5x+y-5=0\\7x-y-19=0\end{matrix}\right.\) \(\Rightarrow A\left(2;-5\right)\)

\(\Rightarrow\overrightarrow{AC}=\left(1;7\right)\Rightarrow R=AC=\sqrt{1^2+7^2}=\sqrt{50}\)

Pt đường tròn: \(\left(x-2\right)^2+\left(y+5\right)^2=50\)

c/ \(\overrightarrow{BC}=\left(2;2\right)\Rightarrow BC=\sqrt{2^2+2^2}=2\sqrt{2}\)

Gọi M là trung điểm BC \(\Rightarrow M\left(2;1\right)\) \(\Rightarrow\) M là tâm đường tròn

\(R=BM=\frac{BC}{2}=\sqrt{2}\)

Phương trình: \(\left(x-2\right)^2+\left(y-1\right)^2=2\)

d/ Trung trực d của BC qua M và vuông góc BC có pt:

\(1\left(x-2\right)+1\left(y-1\right)=0\Leftrightarrow x+y-3=0\)

Gọi N là trung điểm AC \(\Rightarrow N\left(\frac{5}{2};-\frac{3}{2}\right)\)

Trung trực d' của AC qua N và vuông góc AC có pt:

\(1\left(x-\frac{5}{2}\right)+7\left(y+\frac{3}{2}\right)=0\Leftrightarrow x+7y+8=0\)

Gọi I là tâm đường tròn ngoại tiếp tam giác => I là giao của d và d'

Tọa độ I thỏa mãn: \(\left\{{}\begin{matrix}x+y-3=0\\x+7y+8=0\end{matrix}\right.\) \(\Rightarrow I\left(\frac{29}{6};-\frac{11}{6}\right)\)

\(\Rightarrow\overrightarrow{IB}=\left(-\frac{23}{6};\frac{11}{6}\right)\Rightarrow R=IB=\frac{5\sqrt{26}}{6}\)

Pt: \(\left(x-\frac{29}{6}\right)^2+\left(y+\frac{11}{6}\right)^2=\frac{325}{18}\)

Bạn kiểm tra lại tính toán

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

n:=1;

s:=0;

while (n<=10000) do 

begin

n:=n+2;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.

Sửa đề: Kiểm tra N là số chẵn hay số lẻ

uses crt;

var n:longint;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln;

end.

- Bạn Bình đã viết đúng hai đơn thức đó là:

Biểu thức (5 - x)x2 = 5x2 - x3 không là đơn thức vì trong biểu thức có chứa phép trừ.

Hai đơn thức sau thì đúng, còn cái đầu là đa chứ không phải là đơn

Program ba_canh_cua_tam_giac;

uses crt;

var a,b,c: real;

BEGIN

Write('nhap do dai canh a'); Readln(a);

Write('nhap do dai canh b'); Readln(b);

Write('nhap do dai canh c'); Readln(c);

If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')

else write('do khong la do dai cua mot tam giac');

Readln;

END.

Thanks

bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn