Question

В цикле записать в файл числа от 1 до 10 (каждое — в своей строке), а затем их считать и отобразить на экране.
Дополните код:
var
filetext: text;
a:string;
i:integer;
begin
assign(filetext,'c:\text.txt');
rewrite(filetext);
for i:=1 to 10 do
...
reset(filetext);
for i:=1 to 10 do begin
...
...
end;
close(filetext);
end.

Answer 1

var

filetext: text;

a:string;

i,c:integer;

b,k:real;

begin

assign(filetext,'C:\text.txt');

rewrite(filetext);

for i:=1 to 10 do begin

readln(a);

writeln(filetext,a)

end;

close(filetext);

reset(filetext);

for i:=1 to 10 do begin

readln(filetext,a);

val(a,b,c);

k:=k+b

end;

writeln(k);

close(filetext);

end.