program bai1;

var a:array[1..100] ò longint;

i,n:longint;

begin

{Thu tu hoc sinh duoc viet theo a[..]}

repeat

write('N= ');

readln(n);

until n>0;

for i:=1 to n do

begin

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

readln9a[i]);

end;

write('Diem cua ',n,' hoc sinh la ');

for i:=1 to n do

write(a[i],' ');

readln

end.

??????????????????????????????????????????

Cách 1 )  - Xét tam giác vuông AHB và tam giác vuông AHC có :

              AB = AC ( gt )

              AH cạnh chung

             -  Suy ra tam giác vuông AHB = tam giác vuông AHC  ( cạnh huyền - cạnh góc vuông  ) 

Cách 2)  - Vì tam giác ABC là tam giác cân suy ra góc B = góc C 

              - Xét tam giác vuông AHB và tam giác vuông AHC có :

                AB = AC  ( gt )

                 Góc B = góc C ( do tam giác ABC là tam giác cân )

                - Suy ra tam giác vuông AHB = tam giác vuông AHC (  cạnh huyền - góc nhọn )

Cách 2) -Vì tam giác ABC là tam giác cân 

                Suy ra góc B = góc C 

            - Xét tam giác vuông A  

program bai1;

var s,i,x:longint;

begin

write('x= ');

readln(x);

s:=1;

for i:=2 to n do

s:=s+1/i;

write('s= ',s);

readln

end.

program bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do if i mod 2=1 then s:=s+1/i;

write('s= ',s);

readln

end.

Một số cách lưu văn bản như:

+Nhấn tổ hợp phím Ctrl+s;

+Vào file chọn save/save as

a,Chu vi của bánh xe là 0,65 *3,14 =2,041 [m]

b,ng đi xe sẽ đi đc số m nếu bánh lăn 10 vòng là :2,041 *10 =20,41 [m]

c,Bánh xe lăn đc số vòng nếu ng đó đi quãng đường 408,2 m là :408,2 :2,041 =200 [vòng]

8

Đây toán của tiểu học mà

uses crt;
var r,i:integer;
Begin
clrscr;
write('nhap so R='); read(r);
writeln;
writeln('bang nhan,',r);
writeln;
for i:=1 to r do writeln(r,'x',i:2,'=',r*i:3);
readln
end.