Question

viết trương trình tìm số lớn nhất trong 3 số a, b, c được nhập từ bàn phím

Answer 1

var a,b,c,j:integer;

begin

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

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

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

j:=a;

if b>j then j:=b;

if c>j then j:=c;

writeln(' So lon nhat la:',j);

readln;

end.

Answer 2

var a,b,c,s : real ;

begin

write('nhap a'); readln(a);

write('nhap b'); readln(b);

write('nhap c'); readln(c);

if a>b then s:=a;

if b>c then s:=b;

if c>a then s:=c;

write('so lon nhat trong 3 so la',s);

readln

end.

Answer 3

var a,b,c,j:integer;

begin

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

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

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

j:=a;

if b>j then j:=b;

if c>j then j:=c;

writeln(' So lon nhat la:',j);

readln;

end.