Дан массив. определить количество полных квадратов среди элементов массива. вывести исходный массив и все элементы массива, значение которых составляет полный квадрат.
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
//Версия 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