Viết 1 phương trình pascal nhập vào 2 số nguyên a và b. Tìm giá trị lớn nhất và đưa ra màn hình
2 câu trả lời
Uses crt;
Var a,b:real
Begin
Clrscr;
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
If a>b then write('GTLN la ',a) else write('GTLN la ',b);
Readln
End.
uses crt;
var a,b.max: integer;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
max:=a;
if max<b then max:=b;
writeln ('gia tri lon nhat: ',max);
readln;
end.
