Làm giúp mình với ạ .Viết chương trình:Cho mạch điện gồm 2 điện trở R1 ,R2 mắc nối tiếp .Đọc từ tệp “DIENTRO.INP”2 số nguyên R1 và R2 (Các số ngăn cách nhau bởi dấu cách ;R1
Làm giúp mình với ạ .Viết chương trình:Cho mạch điện gồm 2 điện trở R1 ,R2 mắc nối tiếp .Đọc từ tệp “DIENTRO.INP”2 số nguyên R1 và R2 (Các số ngăn cách nhau bởi dấu cách ;R1
var f: text;
r1, r2: word;
Begin
Assign(f, ‘DIENTRO.INP’); reset(f);
Read(f, r1, r2); close(f);
Assign(f, ‘DIENTRO.OUT’); rewrite(f);
Write(f, r1+r2); close(f);
End.
var fi,fo:text;
r1,r2:integer;
Begin
assign(fi,’DIENTRO.INP’);
assign(fo,’DIENTRO.OUT’);
reset(fi);
rewrite(fo);
read(fi,r1,r2);
write(fo,r1+r2);
close(fi);
close(fo);
end.
Cho mình xin CTLHN với ạ