Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thu Pham Ngoc Anh

-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

truong xom
23 tháng 5 2020 lúc 18:15

Tên phần mềm là chi đó

Nguyễn Lê Phước Thịnh
24 tháng 5 2020 lúc 7:45

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.


Các câu hỏi tương tự
Nguyễn Quốc Thịnh
Xem chi tiết
Trần Thị Hà Trang
Xem chi tiết
Linh Da
Xem chi tiết
cute Chanh
Xem chi tiết
Vy Vy
Xem chi tiết
Đặng Minh Hiếu
Xem chi tiết
Trần Đức Hoàng
Xem chi tiết
Nguyễn Phúc
Xem chi tiết
ytkc
Xem chi tiết