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 màn hinhd
2 câu trả lời
uses crt;
var f:text;
a,b,c:real;
begin
clrscr;
assign(f,'baso.Inp');reset(f);
read(f,a,b,c);
close(f);
writeln(a+b+c:0:2);
writeln(a*b*c:0:2);
write(a+b+c>0);
readln;
end.
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.
