<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.
Ответ:
Объяснение:
1) С 12 в 8 до полной. В 12 4л воды
2) С 8 в 5 до полной. В 8 3л воды
3) С 5(5л) в 12(4л). В 12 9л
4) Из 8(3л) в 5(0л). В 5 3л
5) Из 12(9л) в 8(0л). В 8 8л
6) Из 8(8л) в 5(3л). В 8 6л
7) Из 5(5л) в 12(1л). В 12 6л
В 12 и 8 ровно по 6л
Формула имеет вид:
=ЕСЛИ(И(C2>=4;D2>=4;E2>=4;F2>=4);"да";"нет")