Объяснение:
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.
12
Объяснение:
Последовательность команд
*3
+b
*3
+b
*3
Переводит число 8 в число 360
Пойдём с конца. Перед выполнением последней команды было число 360, значит, до неё было 120. Перед этим была команда +b, а перед ней - команда * 3. Значит, 120 - b делится на 3. Значит, b тоже делится на 3. Давайте попробуем
b = 3
8 * 3 = 24
24 + 3 = 27
27 * 3 = 81
81 + 3 = 84
Мало.
b = 6
8 * 3 = 24
24 + 6 = 30
30 * 3 = 90
90 + 3 = 96
Мало
b = 9
8 * 3 = 24
24 + 9 = 33
33 * 3 = 99
99 + 9 = 108
мало
b = 12
8 * 3 = 24
24 + 12 = 36
36 * 3 = 108
108 + 12 = 120
120 * 3 = 360
Подошло
