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

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

Viết một bình luận