Якою метою у наведеному фрагменті використано змінну f?​

Объяснение:

1. var i: integer;

var z, s: double;

begin

i := 1;

z := 512;

s := 0;

while i <= 10 do

 begin

  s := s + i/z;

  inc(i);

  z := z/2;

 end;

writeln(s:0:2);

end.

2. var i, k: integer;

begin

i := 0;

k := 0;

repeat  

 inc(i);

 if ((i mod 2) = 0) then inc(k);

until i=5;

write(k);

end.

3. var i, n: integer;

begin

i := 0;

n := 0;

while i<10 do

 begin

  n := random (31) + 10;

  if ((n mod 2) = 0) then  

    begin

      writeln(n);

      inc(i);

     end;

 end;

end.

Program a1;
Uses crt;
const n=8;
Var a:array[1..n] of integer;
ch,s:integer;
sr:real;
i:byte;
Begin
Writeln('Массив');
For i:=1 to n do
begin
a[i]:=random(101)-50;
writeln(a[i]);
end;
For i:=1 to n do
s:=s+a[i];
sr:=s/n;
For i:=1 to n do
if a[i] mod 2 = 0 then ch:=ch+1;
s:=0;
For i:=1 to n do
if i mod 2 <> 0 then s:=s+a[i];
Writeln('ответы');
Writeln('1) Среднее значение элементов массива = ', sr);
Writeln('2) Количество чётных элементов = ', ch);
Writeln('3) Сумма элементов массива с нечётными номерами = ', s);
End.