Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất

0 bình luận về “Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất”

1. uses crt;
   var max,a,b,c:longint;
   begin
   clrscr;
      write(‘a=’);readln(a);   
      write(‘b=’);readln(b);   
      write(‘c=’);readln(c);
      max:=a;
      if b>max then max:=b;
      if c>max then max:=c;
      writeln(‘Max= ‘,max);
   readln
   end.

   Bình luận

2. Program so_lon_nhat;

   Uses Crt;

   Var a,b,c :Integer;

   Begin

   Clrscr;

   Writeln (‘Hay nhap so a: ’);

   Readln (a);

   Writenln (‘Hay nhap so b: ’);

   Readln (b);

   Writeln (‘Hay nhap so c: ’);

   Readln (c);

   If (a>b) and (a>c )then writeln (‘ a la so lon nhat’);

   If (b>a )and (b>c) then writeln (‘b la so lon nhat’);

   If (c>a) and (c>b )then writeln (‘c la so lon nhat’);

   Readln;

   End.

   Bình luận