Question

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.

Answer 1

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.

Answer 2

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.