Var a,b:integer;

Insert/Picture

Var i,n:integer;

Begin

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

For i:=1 to n do

If i mod 2 = 1 then write(i,'    ');

Readln;

End.

A2:C5

Var a,b:integer;

Begin

Write('Nhap a = ');readln(a);

Write('Nhap b = ');readln(b);

If a > b then write('so lon nhat la ',a)

Else if b > a then write('so lon nhat la ',b)

Else write('khong co so lon nhat');

Readln;

End.

B. Tệp

2A = 2.16 + 10.1 = 32 + 10 = 42

- Thiết bị đầu cuối: máy tính, máy in, điện thoại thông minh.

- Đường truyền dữ liệu: wifi, dây dẫn mạng.

- Thiết bị kết nối: bộ chia, bộ chuyển mạch, bộ định tuyến.

a=int(input('Nhập a='))

if (a%3 ==0) and (a%5 ==0):

        print(a, 'Chia hết cho 3 và 5')

else

        print(a, 'Không chia hết cho 3 và 5')

2016 x 72 + 2016 x 29 - 2016

= 2016 x (72 + 29 - 1)

= 2016 x 100

= 201600