Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
![](https://rs.olm.vn/images/avt/0.png?1311)
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh 1 ngược lại thực hiện câu lệnh 2 và kết thúc.
![](https://rs.olm.vn/images/avt/0.png?1311)
cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
cách thực hiện:
Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.
Vd: Câu lệnh sau:uses crt;
var i,n: integer;
begin
clrscr;
writeln('nhap i: '); readln(i);
writeln(nhap n: '); readln(n);
if i>5 then writeln(i) else writeln(n);
{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}
Cú pháp: if <điều kiện> then <câu lệnh 1>
else <câu lệnh 2>;
Vd: If a[i] mod 2=0 then inc(dem)
else inc(dem1);
![](https://rs.olm.vn/images/avt/0.png?1311)
Tham khảo
*Dạng thiếu:
if <điều kiện> then <câu lệnh>;
VD: if a>b then write(a);
HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.
*Dạng đủ:
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
VD: if a>b then write(a) else write(b);
![](https://rs.olm.vn/images/avt/0.png?1311)
Cú pháp
If < điều kiện> then < câu lệnh>;
Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình
![](https://rs.olm.vn/images/avt/0.png?1311)
Cú pháp của câu lệnh điều kiện:
if <điều kiện> do <câu lệnh 1>
else <câu lệnh 2>;
Cú pháp của câu lệnh lặp với số lần chưa biết trước:
While <điều kiện> do
<câu lệnh>;
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 2:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Câu 3:
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>
else <câu lệnh>;
Câu 4:
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')
else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');
readln;
end.
Câu 5:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')
else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')
else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')
else if (a=b) and (b=c) then writeln('Tam giac deu')
else writeln('Day khong phai la tam giac deu hay tam giac can');
readln;
end.