Lập chương trình s = a + b/c với a b là các số nguyên lấy từ tệp SN. Dat . kết quả s ghi vào sm.out giúp em với ạ .em cảm ơn trước ❤
2 câu trả lời
var f: text;
a, b, c: integer;
s: real;
Begin
Assign(f, 'sm.dat'); reset(f);
Read(f, a, b, c); close(f);
S:=a+b/c;
Assign(f, 'sm.out'); rewrite(f);
Write(f, s); close(f);
End.
program tinhphuongtrinh;
uses crt;
var f,g:text;
a,b,c:integer;
s:real;
begin
Assign(f,'SN.DAT'); reset(F);
Assign(g,'SM.OUT'); rewrite(g);
readln(f,a,b,c);
s:=a+b/c;
write(g,s:0:3);
close(f); close(g);
end.
