Question

Bài 1. 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.

Ví dụ minh họa:

Trong tệp input.txt chứa dãy các số nguyên 2 4 7 13 25 6 18 -1

⇒Tổng các cặp số liên tiếp xuất ra màn hình là 6 20 31 17

Answer 1

uses crt;
const fi='input.txt';
var f1:text;
dem,i:integer;
a:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
for i:=1 to dem do
if i mod 2=1 then write(a[i]+a[i+1],' ');
close(f1);
readln;
end.