level 2
用FreePascal如何提取一个.in文件中一行数字的总和 并将这个和的值赋予给一个常量？
2014年02月05日 09点02分
1
level 2
格式是
12 65 98
13 84 28 36
47 25 12 38
然后计算第二行的几个数字的和
2014年02月05日 10点02分
4
level 11
assign(input,'a.ini');
reset(input);
readln;
readln(a,b,c);
t:=a+b+c;
close(input);
2014年02月05日 10点02分
5
我提前不知道文件的内容 我只知道第一行有n m两个数字 然后第二行有n个数字 第三行有m个数字 如何求第二行n个数字的行
2014年02月05日 11点02分
回复 托卡马克仿星器 :readln(n);readln(t);t:=0;for i:=1 to n do begin readln(t2);t:=t+t2;end; t就是和。
2014年02月05日 11点02分
level 11
program chen;
var n,i:byte;
s,a:longint;
assign(input,'***.in'); reset(input);
readln(n);
for i:=1 to n do
begin
read(a);
inc(s,a);
end;
close(input); writeln(s);
end.
2014年02月05日 13点02分
6
level 11
program chen;
var a,s:longint;
begin
assign(input,'***.in'); reset(input);
readln;
repeat
read(a);
inc(s,a);
until eoln;
close(input);
writeln(s);
end.
2014年02月05日 13点02分
7
level 10
赋值常量。。。我顿时感觉pascal我白学了，好难
2014年02月05日 17点02分
8
