Question

VCT nhập 3 số a,b,c từ bàn phím. Tìm số lớn nhất trong 3 số đó

Answer 1

uses crt;

var a,b,c,max:integer;

begin

clrscr;

write('Nhap a:'); readln(a);

write('Nhap b:'); readln(b);

write('Nhap c:'); readln(c);

max:=-32000;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.

Answer 2

uses crt;

var a,b,c,max:integer;

begin

clrscr;

readln(a,b,c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(max);

readln;

end.