Question

Bài 1. Ghi vào tệp “Songuyen.inp” hai số nguyên a,b

Bài 2. Tính tổng các số có trong tệp “Songuyen.inp”

Dữ liệu vào: Cho trong tệp “so nguyen.inp” gồm hai số nguyên a, b ghi trên một dòng

Dữ liệu ra: Ghi ra tệp “songuyen.out” kết quả

Answer 1

dễ mà bạn!

Answer 2

Bài 1:

uses crt;
const fo='songuyen.inp';
var f:text;
a,b:integer;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap a='); readln(a);
write('nhap b='); readln(b);
writeln(f,a,' ',b);
close(f);
readln;
end.

Bài 2:

const fi='songuyen.inp';
fo='songuyen.out';
var f1,f2:text;
a,b,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a+b);
close(f1);
close(f2);
end.

Answer 3

Bài 1:

uses crt;

const fi='songuyen.inp';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('a='); readln(a);

write('b='); readln(b);

write(f1,a,' ',b);

close(f1);

readln;

end.

Bài 2:

const fi='songuyen.inp';

fo='songuyen.out';

var f1,f2:text;

a,b,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

t:=a+b;

writeln(f2,t);

close(f1);

close(f2);

end.

Answer 4

Bài 1:

uses crt;

const fi='songuyen.inp';

var f1:text;

a,b:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('a='); readln(a);

write('b='); readln(b);

write(f1,a,' ',b);

close(f1);

readln;

end.

Answer 5

Bài 1:

uses crt;

const f='songuyen.inp';

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,f); rewrite(f1);

write('a='); readln(a);

write('b='); readln(b);

writeln(f1,a,' ',b);

close(f1);

readln;

end.

Bài 2:

const fi='songuyen.inp';

fo='songuyen.out';

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a+b);

close(f1);

close(f2);

end.

Answer 6

Bài 1:

uses crt;
const fi='songuyen.inp';
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('a='); readln(a);
write('b='); readln(b);
writeln(f1,a,' ',b);
close(f1);
readln;
end.

Bài 2:

const fi='songuyen.inp';
fo='songuyen.out';
var a,b:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a+b);
close(f1);
close(f2);
end.

Answer 7

Bài 1:

uses crt;
const fi='songuyen.inp';
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('a='); readln(a);
write('b='); readln(b);
writeln(f1,a,' ',b);
close(f1);
readln;
end.

Bài 2:

const fi='songuyen.inp';
fo='songuyen.out';
var a,b:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a+b);
close(f1);
close(f2);
end.

Answer 8

Bài 1:

uses crt;
const fi='songuyen.inp';
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('a='); readln(a);
write('b='); readln(b);
writeln(f1,a,' ',b);
close(f1);
readln;
end.

Bài 2:

const fi='songuyen.inp';
fo='songuyen.out';
var a,b:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
writeln(f2,a+b);
close(f1);
close(f2);
end.

Answer 9

program hotrotinhoc;

const fi='songuyen.inp';

fo='songuyen.out';

var f: text;

a,b: integer;

t: longint;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=a;

t:=t+b;

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Answer 10

Bạn vào góc học tập của mình để xem lời giải nhé.

Answer 11

Test

Answer 12

Bài 1:

uses crt;

const f='songuyen.inp';

var a,b:integer;

f1:text;

begin

clrscr;

assign(f1,f); rewrite(f1);

write('a='); readln(a);

write('b='); readln(b);

writeln(f1,a,' ',b);

close(f1);

readln;

end.

Bài 2:

const fi='songuyen.inp';

fo='songuyen.out';

var f1,f2:text;

a,b:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a+b);

close(f1);

close(f2);

end.