B1: Mở file > chọn Page Setup

B2: Xuất hiện hộp thoại, chọn Tab Margin:

- Chọn Landscape: Để xoay khổ giấy dọc thành ngang.
- Chọn Portrait: Để xoay khổ giấy ngang thành dọc

B3:nhấn ok để kết thúc tác vụ

B1: Bấm file Edit...

B2: Thấy bảng Editor gõ hai thủ tục

to chongchong

fd 100 rt 60 fd 100 rt 150 fd 175 rt 150

end

to chongchong1

setpencolor 4

setpensize [3 3]

repeat 10 [chongchong rt 360/10]

end

B3: Lưu lại. Để thấy kết quả bạn gõ lệnh chongchong1 và chạy nhé.

phần mềm gì hả chú nhìn giống scratch vcl

-Để xóa biểu đồ thì ta:

+ Chọn biểu đồ cần xóa.

+ Ấn nút Backspace hoặc Delete.

- Để tạo biểu đồ:

1.Chọn dữ liệu cho biểu đồ.

2.Chọn Chèn > Biểu đồ được đề xuất.

3.Chọn một biểu đồ trên tab Biểu đồ được đề xuất để xem trước biểu đồ.

4.Chọn một biểu đồ.

5.Chọn OK.

-Để xóa biểu đồ thì ta:

+ Chọn biểu đồ cần xóa.

+ Ấn nút Backspace hoặc Delete.

- Để tạo biểu đồ:

1.Chọn dữ liệu cho biểu đồ

2.Chọn Chèn > Biểu đồ được đề xuất.

3.Chọn một biểu đồ trên tab Biểu đồ được đề xuất để xem trước biểu đồ.

4.Chọn một biểu đồ.

5.Chọn OK.

• Đẹp và có nhiều kiểu chuẩn xác hơn rất nhiều so với viết tay
• Đẹp và có nhiều cách trình bày dễ hơn so với viết tay
• Có thể chỉnh sửa, sao chép văn bản dễ dàng
• chúc bạn hc tốt

var

a:array [1..32000] of integer;

i,s:integer;

begin

for i:= 1 to 20 do

write('a[',i,']='); readln(a[i]);

for i:= 1 to n do

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

write(' tong so chan la : ',s);

readln;

end.

Dễ

Program hoc24h;

Var a:array[1..1000000] of longint;

S,n,i:longint;

Begin

Write('n=');Readln(n);

For i:=1 to n do

Begin

Write('a[',i,']=');

Readln(a[i]);

End;

S:=0;

For i:=1 to n do

S:=S+a[i];

Write('Tong la',S);

End.

C

Giỏi

Phải giỏi chứ Nguyễn Oanh