var a,b,c:Integer; f1,f2:text; begin assign(f1,'pitago01.inp,'); reset(f1); assign(f2,'pitago01.out'); rewrit

Question

var a,b,c:Integer;
f1,f2:text;
begin
assign(f1,’pitago01.inp,’);
reset(f1);
assign(f2,’pitago01.out’);
rewrite(f2);
while not eof (f1) do
begin
Write(‘a,b,c’);
ReadLn(f1,a,b,c);
if( a*a=b*b+c*c) or ( b*b=a*a+c*c) or ( c*c=a*a+b*b)
then WriteLn(‘f2,a,’,’,b,’,’,c,’,’,la boi so pitago’)
else WriteLn(‘f2,a,’,’,b,’,’,c,’,’,khong la boi so pitago’)
end;
close(f1);
close(f2)
end.
Sửa hộ mình lỗi sai với ạ

lanhuong · Answer

d&ograve;ng else   WriteLn('f2,a,',',b,',',c,',',khong la boi so pitago') bạn thiếu ; ở cuối    d&ograve;ng   close(f2) bạn cũng thiếu dấu ; ở cuối     sửa:    var a,b,c:Integer; f1,f2:text; begin         assign(f1,'pitago01.inp,'); reset(f1);         assign(f2,'pitago01.out'); rewrite(f2);         while not eof (f1) do                 begin                         Write('a,b,c');                         ReadLn(f1,a,b,c);                         if( a*a=b*b+c*c) or ( b*b=a*a+c*c) or ( c*c=a*a+b*b)                         then WriteLn('f2,a,',',b,',',c,',',la boi so pitago')                         else WriteLn('f2,a,',',b,',',c,',',khong la boi so pitago');                 end;         close(f1);         close(f2); end.

var a,b,c:Integer; f1,f2:text; begin assign(f1,’pitago01.inp,’); reset(f1); assign(f2,’pitago01.out’); rewrit

0 bình luận về “var a,b,c:Integer; f1,f2:text; begin assign(f1,’pitago01.inp,’); reset(f1); assign(f2,’pitago01.out’); rewrit”

Viết một bình luận Hủy