1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
<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.