Câu 1 :

a) 

- Input : 3 cạnh tam giác

- Output : Diện tích tam giác

b)

- Input : 100 số tự nhiên đầu tiên

- Output : Tổng 100 số tự nhiên đầu tiên

Câu 2 :

- Bước 1 : Nhập 2 số a, b

- Bước 2 : Nếu a = b thì chuyển đến Bước 6

- Bước 3 : Nếu a > b thì M ← a

- Bước 4 : Nếu a < b thì M ← b

- Bước 5 : Đưa ra giá trị M

- Bước 6 : Kết thúc

Câu 3 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap 3 so a, b, c = '); readln(a, b, c);

if (a + b > c) and (b + c > a) and (b + c > a)

then write('3 canh tam giac')

else write('Khong la 3 canh tam giac');

readln

end.

Câu 4 :

- Dòng 1 : Sai cú pháp khai báo biến và kiểu dữ liệu b

⇒ Var a : integer; b : real;

- Dòng 2 : Sai cú pháp khai báo hằng

⇒ Const c = 3;

- Dòng 4 : Thiếu dấu chấm phẩy

⇒ a := 200;

- Dòng 6 : Thiếu dấu chấm phẩy

⇒ writeln(b);

Câu 5 :

uses crt;

var a : integer;

begin

clrscr;

write('Nhap so a = '); readln(a);

if a mod 2 = 0 then write(a,' la so chan')

else write(a,' la so le');

readln

end.