vt ct tìm 4 số xem số nào là số lớn nhất bằng ngôn ngữ lập trình pascal
2 câu trả lời
uses crt;
var a,b,c,d,max: real;
begin
clrscr;
write('nhap so thu nhat:'); readln(a);
write('nhap so thu hai:'); readln(b);
write('nhap so thu ba:'); readln(c);
write('nhap so thu tu:'); readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
writeln('so lon nhat la:',max);
readln
end.
uses crt;
var max,a,b,c,d:longint;
begin
clrscr;
write('Nhap 4 so: ');readln(a,b,c,d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln(max);
readln
end.
