Question

1. Viết chương trình in ra số lớn hơn trong 2 số được nhập từ bàn phím.

2. Viết chương trình in ra số lớn hơn trong 4 số được nhập từ bàn phím

Answer 1

1.Program solonhon;

ues crt;

var a,b:real;

begin

clrscr;

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

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

if a>b then writeln('a lon hon');

if b> a then write('b lon hon')

else writeln('a=b');

readln

end.

2.program solonhon;

uses crt;

var a,b,c,d:real;

begin

clrscr;

write('nhap bon so a,b,c,d:'); readln(a,b,c,d);

if (a>b) and (a>c) and (a>d) then writeln('a lon hon')

else if (b>a) and (b>c) and (b>d) then writeln('b lon hon')

else if (c>a) and (c>b) and (c>d) then writeln('c lon hon')

else if (d>a) and (d>b) and (d>c) then writeln('d lon hon')

else write('a=b=c=d');

readln

end.