Question

Первые три задачи помогите решить, пожалуйста

Answer 1

===== PascalABC.NET =====

1)

begin

var a := ArrRandom(20, 0, 10000);

a.Println;

a.Pairwise.Where(p->p[0].IsEven and p[1].IsEven).Count.Println

end.

2)

begin

var a := ArrRandom(40, 0, 10000);

a.Println;

a.Pairwise

.Where(p->(p[0] mod 10 = 4) or (p[1] mod 10 = 4))

.Count.Println

end.

3)

Минимальное четырехзначное число в восьмеричной системе - это 1000₈ = 8³₁₀ = 512₁₀. Максимальное число это 1000₁₀ = 1750₈. Следовательно, нужное десятичное число равно ближайшему меньшему к 1750₈ числу, оканчивающемуся на 4, т.е. 1744₈, что составляет 8³ + 7×8² + 4×8 + 4 = 996.

Никаких программ тут составлять не надо.