Câu 1 :
- Viết cấu trúc rẽ nhánh :
if a + b < c * c then Y := sqrt(4 * a + b) - 5 * c
else Y := a - b + c;
Câu 2 :
uses crt;
var m, i : integer; T : real;
begin
clrscr;
write('Nhap so m : '); readln(m);
T := 0;
for i := 1 to m do T := T + i / (i + 1);
write('T = ', T : 1 : 2);
readln
end.