Зробити 25 кругов в середовише скрейч

1. Если число оканчивается на 6, то оно четное согласно признаку делимости на 2, поэтому проверка на четность не нужна.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),20,80); a.Println;
  var k:=a.Where(t->t mod 10=6).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
n= 15
47 53 73 26 75 64 70 32 27 80 29 53 20 62 66
2

2. Достаточно много раз нужно запускать задачу, чтобы суметь получить случайную последовательность с парой одинаковых соседних элементов...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,100); a.Println;
  var k:=a.Pairwise.Where(t->t[0]=t[1]).Count;
  if k>0 then Writeln(k)
  else Writeln('Нет')
end.

Пример
60 41 87 87 95 75 72 32 8 52
1

Смотрим: S-сумма, x-годовые, i-года
Решение в С++:

#include <iostream>
using namespace std;int main(void)
{
setlocale(LC_ALL, "Russian");
double S, x;
cout << "Введите сумму S : ";
cin >> S;
x = 3. * S / 100.;
cout<<"Годовой доход составляет: "<< x << endl;
int i;
i = 1.5*S / x;
if (i*x==1.5*S)
  {    i++;
   cout << "Через " << i << " год доход превысит 1.5*S и составит: "<< i * x<<endl;
   } else
   cout << "Через " << i << " лет доход превысит 1.5*S и составит: " << i * x << endl;
system("pause");
return 0;
}