1.Hãy cho biết sự giống và khác nhau của hai dạng câu lệnh if-then 
-Câu lệnh if-then có 2 dạng: dạng thiếu và dạng đủ. Việc giống và khác nhau giữa 2 dạng này xoay quanh cú pháp và ngữ nghĩa.
-Về cú pháp: 2 dạng này giống nhau là đều có điều kiện (là một biểu thức logic) nằm sau if và một câu lệnh (có thể là câu lệnh ghép) nằm sau then. Khác nhau, chỉ có dạng đủ mới có else và sau else còn có câu lệnh khác (có thể là câu lệnh ghép). Như vậy, dạng thiếu dùng 1 điều kiện, 1 câu lệnh; dạng đủ dùng 1 điều kiện, 2 câu lệnh. Ngoài ra, dấu chấm phẩy “;” kết thúc câu lệnh if-then nằm sau câu lệnh sau else của dạng đủ và nằm sau câu lệnh sau then của dạng thiếu.
-Về ngữ nghĩa: 2 dạng này giống nhau là đều kiểm tra điều kiện và thực hiện câu lệnh sau then nếu điều kiện đúng (true). Khác nhau, ở dạng đủ, nếu điều kiện sai thì thực hiện câu lệnh nằm sau else.

2.Câu lệnh ghép là gì? Tại sao phải có câu lệnh ghép?
-Câu lệnh ghép tập hợp 2 hay nhiều câu lệnh nằm giữa cặp begin … end; câu lệnh ghép hay còn gọi là khối lệnh (block).
-Câu lệnh ghép dùng để gộp các câu lệnh đơn lại nhằm thể hiện nhiều thao tác với nhiều biến, giúp không phải dùng đi dùng lại nhiều lần các câu lệnh rẽ nhánh, lệnh lặp.

3.Có thể dùng câu lệnh while-do để thay cho câu lệnh for-do được không? Nếu được, hãy thực hiện điều đó với chương trình Tong_1a.
-Hoàn toàn có thể dùng câu lệnh while-do để thay thế cho câu lệnh for-do, ví dụ sau đây thể hiện điều đó:

Mã:

program Tong_1a;

 uses crt;

 var S:real; a,N:integer; 

begin clrscr;

 write('Hay nhap gia tri a: '); readln(a); 

S:=1.0/a; N:=1; 

while (N=x)then z:=x+y; if(x2+y2>1)and(y=25)) do

 begin

 write('Nhap tuoi cha, tuoi con : '); readln(tcha,tcon); 

end; 

dem:=0; 

while not(tcha=tcon*2) do

 begin tcha:=tcha+1;

 tcon:=tcon+1;

 dem:=dem+1; 

end;

 write('Tuoi cha gap doi tuoi con sau ',dem,' nam');

 readln 

end.

8.Lập trình
-Câu này quá dễ luôn, chắc chỉ cần viết code là các bạn tự hiểu:

Mã:

 
program Lai;
uses crt;
var A,B:real;
dem:integer;
begin
clrscr;
write('Nhap so tien A: ');
readln(A);
write('Nhap so tien tong cong B: ');
readln(B);
dem:=0;
while B>A+dem*A*0.003 do
begin
dem:=dem+1;
end;
write('Ban nhan duoc ',B:8:3,' sau ',dem,' thang');
readln
end.