-Cấu trúc rẽ nhánh
+Bài 1: Nhập vào 1 số nguyên kiểm tra số đó là số âm, số dương hay số không?
+Bài 2:Nhập vào 2 số a, b in ra màn hình số lớn ?
+Bài 3: Kiểm tra 3 số a, b, c có thỏa mãn là 3 cạnh của tâm giác không?
+Bài 4: Nhập vào 1 số nguyên kiểm tra số nào là số lẻ và số nào là số chẵn?
Làm hộ mình với mình đang cần gấp
Bài 1:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n>0 then writeln(n,' la so duong');
if n=0 then writeln(n,' la so khong');
if n<0 then writeln(n,' la so am');
readln;
end.
Bài 2:
uses crt;
var a,b:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a:4:2,' lon hon ',b:4:2)
else if a<b then writeln(b:4:2,' lon hon ',a:4:2)
else writeln(a:4:2,' bang ',b:4:2);
readln;
end.
Bài 3:
uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Bài 4:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.