2 câu trả lời
uses crt;
var a,b,c,d,max:longint;
begin
clrscr;
write('Nhap 4 so: ');readln(a,b,c,d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
writeln('Max= ',max);
readln
end.
uses crt;
var a,b,c,d,max:longint;
begin
clrscr;
read(a,b,c,d);readln;
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write(max);
readln;
end.
Câu hỏi trong lớp
Xem thêm
