Diện tích tấm bìa:

\(60:\dfrac{4}{3}=45\left(cm^2\right)\)

Cạnh đáy tấm bìa:

\(2\times45:2,4=37,5\left(cm\right)\)

Chiều rộng sân:

\(100\times\dfrac{7}{10}=70\left(m\right)\)

Chu vi sân bóng trên bản đồ:

\(\left(100+70\right)\times2:1000=0,34\left(m\right)\)

Diện tích sân bóng trên bản đồ:

\(100\times70:1000=0,7\left(m^2\right)\)

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

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.

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

i,n,d:integer;

Begin

For i:=1 to 20 do

Begin

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

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

End;

Write('Co ',d,' chu so 3');

Readln

End.

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

i,x:integer;

s:longint;

Begin

Write('x = ');readln(x);

For i:=1 to x do

Begin

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

if a[i] mod 2 = 0 then s:=s+a[i];

End;

writeln('Tong cac so chia het cho 2 la ',s);

write('Cac so vua nhap la ');

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

Readln

End.

S = (9 + x) . 12 : 2

= (9 + x) . 6

= 54 + 6x (cm²)

∆OAB có:

OA = OB = AB = R

⇒ ∆OAB đều

⇒ AOB = 60⁰

⇒ Số đo cung nhỏ AB là 60⁰

⇒ Số đo cung lớn AB là: 360⁰ - 60⁰ = 300⁰

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

i,n:integer;

s:longint;

tbc:real;

Begin

Repeat

Write('n = ');readln(n);

Until (n>0) and (n<=100);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln

End.

a) 24 × y : 20 = 480

24 × y = 480 × 20

24 × y = 9600

y = 9600 : 24

y = 400

b) 12862 : y - 296 = 61

12852 : y = 61 + 296

12852 : y = 357

y = 12852 : 357

y = 36

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.