Var i,p:integer;

Begin

i:=0;

p:=1;

While p<=120 do

Begin

i:=i+1;

p:=p*i;

End;

Write('So can tim la ',i);

Readln;

End.

Tổng số phần bằng nhau: 4 + 5 = 9

Chiều dài là: 135 : 9 × 5 = 75 (m)

Chiều rộng là: 135 - 75 = 60 (m)

Diện tích miếng đất: 75 x 60 = 4500 (m²)

Chưa thành nhân tử mà đúng gì???

4,5 - (-1/2) = 4,5 + 0,5 = 5

Sửa đề: Tính số học sinh khối 6 của trường đó

Số học sinh khối 6 là: \(\dfrac{34}{135}.1350=340\) (học sinh)

\(4x^2y+7x^2y-6x^2y-3x^2y\)

\(=\left(4+7-6-3\right)x^2y\)

\(=2x^2y\)

Bài này mới đúng nhé!

Var a:array[1..200] of integer;

i,n,min:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

min:=a[1];

for i:=2 to n do

if a[i] < min then min:=a[i];

write('So nho nhat la ',min);

readln;

end.

Var a:array[1..200] of integer;

i,n,min:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

min:=a[1];

if a[i] < min then min:=a[i];

end;

write('So nho nhat la ',min);

readln;

end.

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

i,n:integer;

p:longint;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

writeln('Cac phan tu le la: ');

for i:=1 to n do

if a[i] mod 2 = 1 then

begin

write(a[i]:7);

p:=p*a[i];

end;

write('Tich cac phan tu le la ',p);

readln;

end.

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

n,i,s:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do write(a[i]:5);

writeln('Cac phan tu chia het cho 3 la:');

for i:=1 to n do

begin

if a[i] mod 3 = 0 then

begin

write(a[i]:5);

s:=s+a[i];

end;

end;

writeln('Tong cac phan tu chia het cho 3 la ',s);

writeln('Cac phan tu la so am: ');

for i:=1 to n do

if a[i]<0 then write(a[i]:5);

readln;

end.