Дан массив. определить количество полных квадратов среди элементов массива. вывести исходный массив и все элементы массива, значение которых составляет полный квадрат.

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
  var a:=ReadArrInteger(ReadInteger('Введите размер массива->'));
  Println('Элементы массива, значение которых составляет полный
квадрат:');
  a.Where(t->(t>=0) and (sqr(trunc(sqrt(t)))=t)).Println;
end.

Пример:

Введите размер массива-> 10
81 2 10 15 100 36 40 144 72 0
Элементы массива, значение которых составляет полный квадрат: 
81 100 36 144 0

/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}

Объяснение:

1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.

Теперь мне лень расписывать - держи фото/скрины

Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.