Câu 1

B1:Nhập ba cạnh của tam giác

B2:Nếu a+b>c và b+c>a và c+a>b thì in ra dòng thông báo đây là ba cạnh của tam giác nếu không thì in ra dòng thông báo đây không phải là ba cạnh của tam giác

B3:Kết thúc thuật toán

Câu 2 

Cú pháp: if <điều kiện> then <câu lện$h_{1}$> else <câu lện$h_{2}$>

Viết CT

uses crt;

var n,i,s:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

for i:=1 to n do begin

write('Nhap so thu  ',i,': ');readln(a[i]);

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

end;

writeln('Tong cac so lon hon 0 la: ',s);

readln

end.

Câu 3

a)

((a+c)*h)/2

b)

(sqrt(sqr(2+a)-a))/(b*b*b)

Câu 4: t=8

1.

B1:Nhập ba cạnh của tam giác

B2:Nếu a+b>c và b+c>a và c+a>b thì in ra dòng thông báo đây là ba cạnh của tam giác nếu không thì in ra dòng thông báo đây không phải là ba cạnh của tam giác

B3:Kết thúc

2.

Cú pháp: if <điều kiện> then <câu lệnh1.1> else <câu lệnh2.2>

uses crt;

var n,i,s :integer;

begin

clrscr;

write('Nhap n: ');

readln(n);

for i:=1 to n do begin

write('Nhap so thu  ',i,': ');readln(a[i]);

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

end

writeln('Tong cac so lon hon 0 la: ',s);

readln

end.

3.

a)

((a+c)*h) /2

b)

(2+a)-a))/(b*b*b)