тема цикл с постусловием( UNTIL) и цикл с предусловием. Язык програмирования...

Question

тема цикл с постусловием( UNTIL) и цикл с предусловием. Язык програмирования Паскаль.Ребят, Пожалуйста, помогите:(((​

---

Answer 1

Ответ:

Объяснение:

1. var i: integer;

var z, s: double;

begin

i := 1;

z := 512;

s := 0;

while i

 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

 begin

 n := random (31) + 10;

 if ((n mod 2) = 0) then  

    begin

      writeln(n);

      inc(i);

     end;

 end;

end.