A. крутой подарок
имя входного файла: стандартный ввод
имя выходного файла: стандартный вывод
ограничение по времени: 1 секунда
ограничение по памяти: 256 мегабайт
у темирлана недавно был день рождения. из его друзей самый оригинальный подарок решил
сделать его друг, айсултан. айсултан знает, что темирлан любит крутые числа. число называется
крутым, если оно является квадратом целого числа. например, 0, 9, 121 — крутые числа; а 50, 3,
12 — не крутые числа.
в распоряжении айсултана есть последовательность из n целых чисел — a1, a2, a3, an. чтобы
сообразить подарок, айсултан берет два числа из этой последовательности aj и ai таких, что j < i
и если число aj ∗ ai является крутым, то он подарит произведение этих двух чисел темирлану.
понять айсултану, сколькими он может это сделать. формально, найдите
количество пар чисел (aj , ai) таких, что j < i и произведение aj ∗ ai является крутым числом.
формат входных данных
первая строка входных данных содержит одно число n — размер последовательности айсултана
(1 ⩽ n ⩽ 103
).
вторая строка входных данных содержит n целых чисел a1, a2, a3, an через пробел — последовательность
айсултана (−1000 ⩽ ai ⩽ 1000).
формат выходных данных
в единственной строке выведите одно число — ответ на .
примеры
стандартный ввод стандартный вывод
4
1 0 1 1
6
2
-8 -2
1
3
1 16 4
3
1
0
0
замечание
данная содержит 3 .
1. 0 ⩽ ai ⩽ 1 для всех 1 ⩽ i ⩽ n.
2. n = 2, −1000 ⩽ ai ⩽ 1000.
3. ограничения из условия.
в первом примере всего существует 6 пар чисел и все они являются квадратами числа 0 или 1.
во втором примере единственная пара при произведении дает 16, что является квадратом целого
числа.
в третьем примере все три пары (1, 16), (1, 4), (16, 4) в произедении квадрат целого числа.
в четвертом примере нет пар.
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении