Помогите решить ** PascalABC.NET в синтаксисе Pascal ABC. Сколько членов...

Question

Помогите решить на PascalABC.NET в синтаксисе Pascal ABC.

Сколько членов последовательности являются квадратами нечетных чисел.

Comments

хах. Окей. Можите удалить) Я не могу разъяснить вам это задание. Прошу прощения.

---

вводить с клавиатуры

---

эээ) вводим длину последовательности

---

Окей, спасибо. Я просто сама не знала и не поняла. Рада вашей помощи

Answer 1

Var
  n,m,i,k:integer;
begin
  Write('n='); Read(n);
  Write('Вводите числа через пробел или Enter: ');
  k:=0;
  for i:=1 to n do begin
    Read(m);
    if m mod 2=1 then
      if Frac(sqrt(m))=0 then Inc(k)
    end;
  Writeln('Найдено квадратов нечетных чисел: ',k)
end.

Пример
n=10
Вводите числа через пробел или Enter: 16 49 1 5 9 121 66 71 0 -1
Найдено квадратов нечетных чисел: 4