Pascal: Viết chương trình xét xem độ dài a, b,c có vẽ được một tam giác hay không. Nếu là độ dài 3 cạnh của thì xét xem

Pascal: Viết chương trình xét xem độ dài a, b,c có vẽ được một tam giác hay không.
Nếu là độ dài 3 cạnh của thì xét xem có là tam giác đều hay không.

0 bình luận về “Pascal: Viết chương trình xét xem độ dài a, b,c có vẽ được một tam giác hay không. Nếu là độ dài 3 cạnh của thì xét xem”

  1. program oken;
    uses crt;
    var a,b,c: qword;
    begin
        clrscr;
        write(‘Nhap 3 do dai a,b,c: ‘); readln(a,b,c);
        if (a+b>c) and (a+c>b) and(b+c>a) then
            begin
                writeln(‘3 canh a, b, c tao nen 1 tam giac’);
                if (a=b) and (b=c) and (a=c) then
                    writeln(‘Day la tam giac deu’);
            end
        else
            writeln(‘3 canh a, b, c khong tao nen 1 tam giac’);
        readln;
    end.

    Bình luận

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