Смотря если много компов то файлы локальные , lochost вроде и файлы которые выложили в сеть с главного клмпа
<u>Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.</u>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Rewrite(f);
SeqRandom(20,-50,50).foreach(t->Write(f,t));
f.Close
end.
<u>А теперь, собственно, решение задачи</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var k:=0;
var b:integer;
while not Eof(f) do begin
Read(f,b);
if b.IsEven then k+=1
end;
f.Close;
Writeln('Кол-во четных компонент файла равно ',k)
end.
<u>И последнее - программа распечатки значений компонент файла. Для контроля.</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var b:integer;
while not Eof(f) do begin Read(f,b); Print(b) end;
Writeln;
f.Close
end.
Ее изобрел Дуглас Карл Энгельбарт в <span>9 декабря 1968 г.</span>
<span>Операционная система (ОС) - это комплекс программного обеспечения, предназначенный для снижения стоимости программирования, упрощения доступа к системе, повышения эффективности работы.
</span>