Bài 6. Câu lệnh điều kiện

Nhi Lê

Viết chương trình nhập vào 3 số thực a, b, c. Kiểm tra xem a có phải là số lớn nhất, nếu đúng thì in ra màn hình giá trị của a, ngược lại thông báo a không phải là số lớn nhất.

Tú Nguyễn
7 tháng 1 2019 lúc 22:08

var a,b,c,h:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

write('c=');readln(c);

h:=a;

if b>h then h:=b;

if c>h then h:=c;

if h=a then writeln(a)

else writeln(a,' khong phai so lon nhat ');

readln;

end.

Bình luận (0)
Luân Đào
7 tháng 1 2019 lúc 18:57

program kiemtraln;

uses crt;

var a,b,c: real;

begin

clrscr;

write('nhap a vao day '); read(a);

write('nhap b vao day '); read(b);

write('nhap c vao day '); read(c);

Max:=a;

if Max < b then write(a:4:3,' khong la so lon nhat') else

if Max < c then write(a:4:3,' khong la so lon nhat') else

write(a:4:3,' la so lon nhat');

readln

end.

Bình luận (1)

Các câu hỏi tương tự
Trúc Anh
Xem chi tiết
La Thị Thu Phượng
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
Ngu nhưng Siêng
Xem chi tiết
Họ Và Tên
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
Minh Ngọc
Xem chi tiết
Cao Minh Thảo
Xem chi tiết
Khoa Nguyên Nguyễn
Xem chi tiết