$#QLinkVNxWCDI$. Bạn xem qua câu trả lời của mình nha!
CÂU 1:

Bước 1: Nhập vào 3 giá trị a, b, c.
Bước 2: Nếu tổng của 2 trong 3 cạnh bé hơn cạnh còn lại thì kết thúc chương trình (do không thỏa mãn điều kiện của một tam giác).
Bước 3: Nếu tổng của 2 trong 3 cạnh lớn hơn cạnh còn lại thì tiếp tục chương trình, tiếp tới bước 4.
Bước 4: Chọn giá trị của 2 trong 3 cạnh. Nếu giá trị của 2 cạnh được chọn bằng nhau thì in ra màn hình là Đây là tam giác cân.
Bước 5: Nếu cả 3 cạnh không có cạnh nào bằng nhau thì in ra màn hình Đây không là tam giác cân.
Bước 6: Kết thúc chương trình.

CÂU 2:

Bước 1: Nhập số phần tử cần tính - n.
Bước 2: Yêu cầu nhập từ từ các giá trị từ bàn phím từ 1 đến n để đưa vào biến mảng.
Bước 3: Kiểm tra các giá trị của các giá trị vừa nhập.
Bước 4: Nếu không có giá trị nào chẵn thì chuyển tới bước 7. (do không đạt yêu cầu đề bài).
Bước 5: Nếu có giá trị chẵn thì đưa các giá trị đó vào 1 biến mảng khác.
Bước 6: Thực hiện phép tính tổng các giá trị chẵn trên. In ra màn hình kết quả vừa tính.
Bước 7: Kết thúc chương trình.

Câu 1 :

B1: nhập 3 số dương a,b,c

B2: nếu a+b <= c, chuyển đến b6

B3: nếu a+c <= b, chuyển đến b6

B4: nếu b+c <= a, chuyển đến b6

B5: cho kết quả a,b,c là 3 cạnh của tam giác 

B6: in ra kết qua và kết thúc thuật toán 

Câu 2 : 

Program tong_so_chan;

Uses crt;

Var

S,N,I:Integer;

Begin

Clrscr;

Write('Nhap N ');Readln(N);

S:=0;

For I:=1 to N do

If (I mod 2=0) then

S:=S+I;

Writeln('Tong cac so chan la ',S);

Readln;

End.