Ответы
Ответ дал:
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.
Никаких программ тут составлять не надо.
Приложения:
![](https://st.uroker.com/files/2e7/2e7a0c697d9ae5a80d21e3a32e167e56.jpg)
![](https://st.uroker.com/files/5ac/5ac0ef8b70328eacd9d0b0b030a7f831.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад