uses crt;

var

i,tong,n,m: integer

begin

write('Nhap m: ');readln(m);

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

for i:=m to n do

tong: tong+m;

write(tong);

readln;

end.

uses crt;

var

n:integer;

begin

clrscr;

write('Nhap vao so n: ');readln(n)

for i:=n downto 1 do

writeln(i);

readln;

end.

o ở đâu v bạn

uses crt;

var

a:array[1..50] of integer;

i,n,tong:integer;

begin

write('So hoc sinh trong lop: ');readln(n);

for i:=1 to n do

begin

write('Diem kiem tra cua ban thu ',i,' la: ');readln(a[i]);

tong:=tong+a[i]

end;

b:=tong/n

write('Diem trung binh tin hoc cua ca lop la: ',b:2:1);

readln;

end.

CT này mình chưa test nên có thể có 1 số loại nhỏ

uses crt;

var

i,tong:integer

begin

clrscr;

tong:=0;

i:=1

while i<0 do

begin

tong:=tong+i;

i:=i+1;

end;

write(tong);

readln;

end.

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

pascal hay c++ bạn

chỗ if (c mod i)= 0 á sửa thừ thành ((cmod i)=0)

Xét BHA và AHC

Có: góc H₁ = góc H₂ =90

góc A2= góc B ( cùng phụ với góc A1)

tg BHA đồng dạng với tg AHC

=> ta có tỉ lệ \(\frac{AH}{HC}=\frac{BH}{AH}=\frac{AB}{AC}\) = \(\frac{9}{12}\)=\(\frac{3}{4}\)

có \(\frac{S_{BHA}}{S_{AHC}}=k^2=\left(\frac{3}{4}\right)^2=\frac{9}{16}\)

S_BHA= \(\frac{AH.BH}{2}\)=\(\frac{12.9}{2}=54\)

mà S_AHC = \(\frac{S_{BHA}.16}{9}=\frac{54.16}{9}=96\)

S_ABC= S_BHA + S_HAC =54+96 =150