Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong tệp input.txt (các số cách nhau bởi dấu cách và được viết trên cùng một dòng). Tính và đưa kết quả ra màn hình.
Giúp mình với :))
Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong tệp input.txt (các số cách nhau bởi dấu cách và được viết trên cùng một dòng). Tính và đưa kết quả ra màn hình.
Giúp mình với :))
var i,n,k:longint;
begin
assign(input,’input.txt’);
assign(output,’output.txt’);
reset(input);
rewrite(output);
while not eof do
begin
read(n);
read(k);
write(n+k,’ ‘);
end;
close(input);
close(output);
end.
Const Fi=’Input.txt’;
Var f: text;
A: array[1..1000] of longint;
n,i: longint;
Begin
Assign(f,Fi); Reset(f);
n:=0;
While not eof(f) do
Begin
inc(n);
Read(f,A[n]);
End;
For i:=1 to n-1 do
If i mod 2 = 1 then
Write(A[i]+A[i+1],’ ‘);
Close(f);
Readln
End.