2 câu trả lời
Program max;
Var a, b, c, Max: integer;
Begin
Write ('Nhap a= '); Readln (a);
Write ('Nhap b= '); Readln (b);
Write ('Nhap c= '); Readln (c);
Max:= a;
If b> Max then Max:=b;
If c> Max then Max:=c;
Write('Max= ',Max);
Readln;
End.
uses crt;
var a, b, c, max : integer;
begin
clrscr;
write(‘nhap so a :’);readln(a);
write(‘nhap so b :’);readln(b);
write(‘nhap so c :’);readln(c);
max := a;
if b > max then max := b;
if c > max then max := c;
writeln(‘gia tri lon nhat trong ba so la :’, max);
readln
end.
