Viết chương trình đọc 3 số a,b,c từ tệp baso.Inp Tính và in ra màn hình tổng và tích 3 số đó. Kiểm tra tổng 3 số có lớn hơn 0 và thông báo kết quả ra

0 bình luận về “Viết chương trình đọc 3 số a,b,c từ tệp baso.Inp Tính và in ra màn hình tổng và tích 3 số đó. Kiểm tra tổng 3 số có lớn hơn 0 và thông báo kết quả ra”

1. uses crt;
   var a,b,c,s: byte;
   f:text;
   begin
   assign(f1,’baso.inp’);reset(f1);
   read(f1,a,b,c);
   s:=a+b+c;
   if s>0 then writeln (‘tong 3 so lon hon 0’)

   else if s<0 then writeln (‘tong 3 so be hon 0’)
   else writeln (‘tong 3 so bang 0’);
   readln;
   end.

   Bình luận