Chiều cao tam giác là:

   2,7 x 2 : 3 = 1,8 (m)

         Đáp số: 1,8 m

sorry up nhầm bài 

Bài đúng nè

var n,x,x2:longint;

begin

read(x,n);

x2:=x;

n:=n-1;     {vì x mũ 1 nên n=n-1}

while n<>0 do

begin

n:=n-1;

x:=x*x2;

end;

write(x,' mu ',n,' = ',x);

end.

var x,n:longint;

begin

read(x,n);

while n<>0 do

begin

n:=n-1;

x:=x*x;

end;

write('gia tri ',x,'mu',n,'la : ',x);

end.

hứa 5 sao nhe :)

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

      n,i,max:longint;

begin

read(n);   {nhập số phần tử trong dãy}

for i:=1 to n do read(a[i]);   {nhập giá trị các phần tử}

max:=a[1];  {gán max=giá trị của phần tử thứ nhất}

for i:=2 to n do

if a[i]>max then max:=a[i];

write('gia tri lon nhat trong day la: ',max);

end.

Ấn đồng thời alt+f5 để xem kq nhé!!!

Đánh giá zùm nhe :)

(nhập đến khi số đó chia hết cho 3 phải ko ban?);

var n:longint;

begin

while n mod 3<>0 do

read(n);

end.

a)

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

      n,i,max,d:longint;

begin

read(n);

for i:=1 to n do

write('nhap chieu cao, don vi cm');read(a[i]);

b) max:=a[1];

for i:=2 to n do

if a[i]>max then max:=a[i];

writeln('ban cao nhat cao',max);

c) for i:=1 to n do

if a[i]>160 then d:=d+1;

write('so ban cao hon 160 cm la: ',d);

end.