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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận