Câu 1:

uses crt;
var toan,ly,hoa:array[1..30]of integer;
t,i:integer;
tb:real;
begin
clrscr;
t:=0;
for i:=1 to 30 do
begin
write('nhap diem toan cua ban thu ',i,': '); readln(toan[i]);
t:=t+toan[i];
end;
for i:=1 to 30 do
begin
write('nhap diem ly cua ban thu ',i,': '); readln(ly[i]);
t:=t+ly[i];
end;
for i:=1 to 30 do
begin
write('nhap diem hoa cua ban thu ',i,': '); readln(hoa[i]);
t:=t+hoa[i];
end;
tb:=t/90;
writeln('diem trung binh cua ca lop la: ',tb:4:2);
readln;
end.

Câu 2:

*Điều kiện

-Cú pháp:

+Dạng thiếu: if <điều kiện> then <câu lệnh>;

+Dạng đủ: if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

-Ý nghĩa:

+Dạng thiếu: nếu biểu thức điều kiện giưa IF và THEN có giá trị TRUE thì câu lệnh sau THEN sẽ được thực hiện.

+Dạng đủ: Nếu điều kiện đúng (TRUE) thì chạy câu lệnh sau THEN (câu lệnh 1), ngược lại (điều kiện sai - FALSE) thì chạy câu lệnh 2

*Lặp

-Cú pháp:

+Cú pháp 1: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do

<câu lệnh>;

Trong đó:

+ for, to, do: từ khóa
+ biến đếm: phải khai báo kiểu số nguyên (như là integer)
+ giá trị đầu, giá trị cuối: là giá trị nguyên
+ số lần lặp = giá trị cuối - giá trị đầu + 1
+ nếu là câu lệnh ghép thì phải nằm trong cặp begin end

+Cú pháp 2: for<biến đếm>:=<giá trị cuối> downto <giá trị đầu> do

<câu lệnh>;

-Ý nghĩa: Câu lệnh lặp có tác dụng giúp chỉ 1 lệnh thay thế được cho nhiều lệnh.

*Khai báo biến mảng

-Cú pháp: Có hai cách khai báo

+Cách 1: var <tên mảng>:array[<chỉ số>] of <kiểu dữ liệu>;

+Cách 2: type <tên kiểu>=array[<chỉ số>] of <kiểu dữ liệu>;

var <tên biến>=<tên kiểu>;

Định dạng phông chữ

thì bn nói z ai mà ko bt?

Microsoft

Do hãng Microsoft

Bạn là ARMY àk

v~ Câu trả lời không liên quan j hết one like for you

Quy tắc gõ văn bản trong WORD:

- Các dấu ngắt câu phải được đặt sát vào từ trước nó, tiếp theo là dấu cách.

- Các dấu ngoặc, dấu nháy phải được đặt sát vào kí tự bên trong nó.

- Giữa các từ chỉ được dùng một kí tự trống.

giống nhau :
- đều xóa 1 chữ cái
khác :
- phím detele xóa kí tự ngay sau con trỏ soạn thảo
- phím backspace xóa kí tự ngay trc con trỏ soạn thảo