Viết chương trình đọc 3 giá trị a,b,c trong file input.txt – Tính tổng số chẵn từ a đến b – a,b,c có phải là hình tam giác vuông hay không In kết quả

0 bình luận về “Viết chương trình đọc 3 giá trị a,b,c trong file input.txt – Tính tổng số chẵn từ a đến b – a,b,c có phải là hình tam giác vuông hay không In kết quả”

1. Const Fi=’INPUT.TXT’;
         Fo=’OUTPUT.TXT’;

   Var f,g: text;
       a,b,c,res,i: longint;
       check: boolean;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,a,b,c);
           res:=0;
           For i:=a to b do
                   If i mod 2 = 0 then res:=res+i;
           Writeln(g,res);

           check:=false;
           If (a+b>c) and (b+c>a) and(a+c>b) then
                   If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then check:=true;

           If check = false then Write(g,’NO’)
           Else Write(g,’YES’);
           Close(f);
           Close(g);
   End.

   Bình luận