Вот, имеются материалы на которых ты можешь решить это. Например:
https://math.semestr.ru/inf/table.php
№1
37 = 100101
64 = 1000000
121= 1111001
307= 100110011
511 = 111111111
91 = 1011011
366 = 101101110
404 = 110010100
717 = 1011001101
1228 = 10011001100
№2
101010= 42
100100=36
11111= 31
101110= 46
1100011=99
1001010=74
1100010000=784
101110001=369
1000001=65
1011001=89
Program first;
var x : Integer;
begin
for x := 1 to 10 do begin
write(x);
if x mod 2 = 0 then
writeln('-четное')
else writeln('-нечетное');
end;
end.
<span><span>1. Наполнить 7-литровый кувшин</span>
<span>2. Перелить из <span><span>7-литрового кувшина в </span></span><span><span>2-литровый</span></span> 2 литра.</span>
<span>3. Вылить воду из <span><span><span><span>2-литрового</span></span></span></span> кувшина в колодец. </span>
<span>4. Повторить пункты 2 и 3.</span>
<span>Результат: 3 литра воды в <span><span><span><span>7-литровом кувшине (7-2-2=3).</span></span></span></span>
</span></span>
Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
