с 3 . они весьма легкие, но сейчас уже не имею не возможности, не сил их выполнять, ибо комп вообще весьма далеко. буду за решения! программа в pascale 1. дано n целых чисел. найти среднее арифметическое. 2. вывести первых n целых чисел кратных 7. 3. вводится последовательность чисел пока не введен 0. найти количество четных чисел в наборе.

У меня тоже комп далеко, поэтому пишу программы прямо на телефоне! ;-) И вот, что получилось (все результаты проверены):

program First;
type
arr = array of integer;
var
a : arr;
i, p, l : integer;
f : real;

begin
writeln('Вводите числа (0 - окончание ввода)');
i:=1;
l :=0;
repeat
readln(p);
if p=0 then break;
setLength(a, i);
a[i-1]:=p;
i:=i+1;
l:=l+1;
until p=0;
p:=0;

for i:=0 to l-1 do p:=p+a[i];
f:=p/l;

writeln(f:5:2);
end.

program Second;
var
p, i : integer;

begin
write('Введите количество чисел: ');
readln(p);
for i:=1 to p do write(7*i, ' ');
end.

program Third;
var
count, p : integer;

begin
writeln('Вводите числа');
count :=0;
repeat
readln(p);
if p=0 then break;
if (p mod 2 = 0) then count:=count+1;
until p=0;
writeln ('Было введено ', count, ' чётных чисел.');
end.

Удобнее всего решать с использованием промежуточной двоичной системы, поскольку 16=2⁴, в 8=2³. В силу этого каждая шестнадцатиричная цифра изображается четырьмя битами (тетрадой), а каждая восьмеричная - тремя (триадой).
Заменим неизвестные биты символом Х.
1010₁₆ = ХХХ ХХ1 010₈
Запишем изображения битов друг под другом с учетом известной нам информации.
   Х Х Х Х 1 0 1 0
Х Х Х Х Х 1 0 1 0
Теперь известные биты в конце чисел можно отбросить
   Х Х Х Х
Х Х Х Х Х
Очевидно, во втором (восьмеричном числе первый бит нулевой, поскольку оба числа в двоичной записи одинаковы и остается только ₂.
Эти четыре бита (обозначим их IJKL) могут дать 16 комбинаций. Но требование, чтобы восьмеричное число имело три цифры, старшая из которых не может быть нулем, запрещает комбинацию IJ=00, поэтому 4 комбинации из 16 надо вычеркнуть. Останется 12.

ответ: 12 чисел.

A)X = *5(16) = *0*(8)
# код на руби
for i in "100".to_i(8).."f5".to_i(16)
    p [i, i.to_s(16), i.to_s(8)] if i%16==5 and (i/8)%8==0
end

Выдает 3 варианта ответов
[69, "45", "105"]
[133, "85", "205"]
[197, "c5", "305"]


б)X = 3*9(16)= 1**(8)
тут или ошибка или нужно доказать что такого числа нет
Минимальное 16ричное число при таких данных 309(16) = 777(10)
Максимальное 8ричное число при таких данных 177(8) = 127(10)
Так что такого числа нет

если переписать условие иначе
б)X = 3*9(16)= 1***(8)

тогда

# код на руби
for i in 0..2000
    p [i, i.to_s(16), i.to_s(8)] if i%16==9 and (i/16/16)==3 and i/8/8/8==1
end

дает такие ответы
[777, "309", "1411"]
[793, "319", "1431"]
[809, "329", "1451"]
[825, "339", "1471"]
[841, "349", "1511"]
[857, "359", "1531"]
[873, "369", "1551"]
[889, "379", "1571"]
[905, "389", "1611"]
[921, "399", "1631"]
[937, "3a9", "1651"]
[953, "3b9", "1671"]
[969, "3c9", "1711"]
[985, "3d9", "1731"]
[1001, "3e9", "1751"]
[1017, "3f9", "1771"]