program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;
P:=1;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then P:=P*b;
write(f,b);
end;
writeln('произведение элементов: ',P);
program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
P:=1;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then P:=P*b;
write(f,b);
end;
writeln('произведение элементов: ',P);
else
writeLn('в файле нет таких элементов');
close(f);
end.
program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
P:=1;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then P:=P*b;
write(f,b);
end;
writeln('произведение элементов: ',P);
else {тут не понятно что за условие}
writeLn('в файле нет таких элементов');
close(f);
end.
program ABC;
var b,P,i:integer;
f:file of integer;
flag:boolean;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('write 12 elements of f:');
P:=1;
flag:=false;
for i:=1 to 12 do
begin
writeLn('write ',i,'element f');
readLn(b);
if (abs(b)>=1) and (abs(b)<=5) then begin P:=P*b; flag:=true; end;
write(f,b);
end;
If flag then
writeln('Proizvedenie= ',P) else
writeLn('No this elements');
close(f);
end.
program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;
// поиск
reset(f);
P:=1;
while not EOF(f) do
begin
read(f,b);
if (abs(b)>=1) and (abs(b)<=5) then
begin
P:=P*b;
end;
end;
// вывод результатов
if P=1 then
begin
writeLn('В файле нет таких элементов')
end
else
writeln('произведение элементов: ',P);
close(f);
end.
if P=1 then //нету таких чисел
program ABC;
var b,P,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
rewrite(f);
writeLn('вводите 12 компонент файла f:');
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;
// поиск
reset(f);
P:=1;
while not EOF(f) do
begin
read(f,b);
if (abs(b)>=1) and (abs(b)<=5) then
begin
P:=P*b;
end;
end;
// вывод результатов
if P=1 then
begin
writeLn('В файле нет таких элементов')
end
else
writeln('произведение элементов: ',P);
close(f);
end.
reset(f);?
P:=1;
while not EOF(f) do
begin
read(f,b);
reset(f);?
P:=1;
while not EOF(f) do
begin
read(f,b);
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца
ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
begin
assign(f,'f.dat');
writeLn('введите первую компоненту файла f (признак конца
ввода: "555")');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
//вывод файла после изменения
reset(F);
while not Eof(F) do
read(f,b);
if (b>=-3) and (b<=5) then write(1:5)
else write(b:5);
writeLn;
// увеличение на 5 в файле элементов больших четырех,
// не стоящих на позициях кратных трём
reset(f);
while not EOF(f) do
begin
read(f,b);
if (b>4) and ((filepos(f)-1) mod 3 <> 0) then
begin
seek(f,filepos(f)-1);
b:=b+5;
write(f,b);
end;
end;
//вывод файла после изменения
reset(f);
writeLn('файл f после изменения:');
while not EOF(f) do
begin
read(f,b);
6
write(b:5);
end;
writeLn;
close(f);
end.
if (b>=-3) and (b<=5) and ((Filepos(f)-1) mod 2<>0) then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;
if (b>=-3) and (b<=5) and ((Filepos(f)-1) mod 2<>0) then
begin
seek(f,filepos(f)-1);
b:=1;
write(f,b);
end;
program ABC;
var b,P,i:integer;
f:file of integer;
flag:boolean;
begin
assign(f,'f.dat');
// ввод файла
rewrite(f);
writeLn('вводите 12 компонент файла f:');
flag:=false;
for i:=1 to 12 do
begin
writeLn('введите ',i,'-ую компоненту файла f');
readLn(b);
write(f,b);
end;
// поиск элементов чей модуль лежит в диапазоне [1; 5]
reset(f);
P:=1;
flag:=false;
while not EOF(f) do
begin
read(f,b);
if (abs(b)>=1) and (abs(b)<=5) then
begin
P:=P*b;
flag:=true;
end;
end;
// вывод результатов
if flag then
writeln('произведение элементов: ',P)
else
writeLn('в файле нет таких элементов');
close(f);
end.
