begin

write('Chao cac ban! Ten toi la...');

Readln

End.

a) Sau khi Minh rút thẻ số 9 thì trong hộp còn các thẻ ghi số: 0; 1; 2; 3; 4; 5; 6; 7; 8; 10

Để Hưng thắng thì Hưng phải rút được thẻ số 10

Xác suất Hưng rút được thẻ số 10 là 1/9

b) Khi Minh rút được thẻ số 0 thì Hưng sẽ rút được thẻ lớn hơn 0

⇒ Hưng luôn thắng

Vậy xác suất Hưng thua là 0

Đổi 1h 30 phút = 1,5 h

Nửa quãng đường AB dài:

60 × 1,5 1r (km)

Vận tốc xe máy:

60 × 2 : 3 = 40 (km/h)

Thời gian xe máy đi hết nửa quãng đường AB:

45 : 40 = 1,125 (h)

Em ghi đề thiếu!

a) Gọi độ dài cạnh cần tìm là x (cm) (x > 0)

Theo hệ quả của bất đẳng thức tam giác, ta có:

13 - 6 < x < 13 + 6

7 < x < 19

Do tam giác cân nên x = 13 (cm)

b) Chu  vi tam giác cân đó:

6 + 13 + 13 = 32 (cm)

Sửa đề:

m:=5;

for i:=4 to 10 do m:=m+i;

Biến đếm i tăng lên 1 đơn vị bắt đầu từ giá trị đầu là 4 và kết thúc khi i=10.

Vậy giá của của m = 5 + 4 + 5 + 6 +7 + 8 + 9 + 10 = 54

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

i,n,min,max:integer;

Begin

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

For i:=1 to  n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

begin

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

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

end;

writeln('So lon nhat la ',max);

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

Readln

End.

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

i:integer;

s:longint;

Begin

For i:=1 to 50 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then

s:=s+a[i];

End;

Write('Tong cac so le la: ',s);

Readln

End.

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

i,m:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to m do 

Write(a[i]:10:2);

Readln

End.