В цикле записать в файл числа от 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.
Imilka007:
Числа целые или вещественные?
Ответы
Ответ дал:
0
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.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад