1)

Cú pháp:

   - Dạng thiếu: if <điều kiện> then <câu lệnh>;

   - Dạng đủ: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

Hoạt động:

   - Dạng thiếu: 

       + Kiểm tra điều kiện

       + Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh sau từ khóa then

       + Ngược lại, câu lệnh đó bị bỏ qua

   - Dạng đủ:

       + Kiểm tra điều kiện

       + Nếu điều kiện được thỏa mãn, ct sẽ thực hiện câu lệnh 1 sau từ khóa then

       + Ngược lại, câu lệnh 2 sẽ được thực hiện

2)

program ct;

uses crt;

var i:integer;

      S:real;

begin clrscr;

     S:=0;

   for i:=1 to 100 do S:=S+1/i;

   write('Tong S la: ',S);

readln;

end.

Học tốt!

1/ câu lệnh điều kiện

Dạng thiếu: $\text{If (điều kiện) then (công việc)}$

Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc ,nếu sai thì thoát ra ,không thực hiện công việc

Dạng đủ

$\text{If (điều kiện) then (công việc1) else (công việc2)}$

Cách hoạt động: Kiểm tra điều kiện,nếu dùng thì thực hiện công việc 1  ,nếu sai thì thực hiện công việc 2

2/

Program Hotboy;

Uses crt;

Var S,i: real;

Begin

Clrscr;

S:=0;

For i:=1 to 100 do

S:=S+1/i;

Inc(i);

Writeln('S can tim la',S:3:6);

Readln

End.