Вопрос из сегодняшнего ЕГЭ по информатике. Пишите на паскале.

Question

Написать программу, которая считает количество пар элементов, произведение которых кратно 17 и разница индексов которых не менее чем на 3 позиции. На вход программе подаётся количество чисел N (3<N<=10000) и в каждой следующей строке соответствующее число. A)Желательно написать эффективную по времени работы и памяти программу B)просто правильная программа.

user_25993715 · Accepted Answer

ЕГЭ в США используют только в коррекционных школах ( где дауны учатся)

iurii_moiseev_149 · Answer

var a:array[1..10000] of word;
i,j,n,f:integer;
begin
write('N=');
readln(n);
f:=0;
for i:=1 to n do
begin
write(i,'-число=');
readln(a[i])
end;
for i:=1 to n-1 do
for j:=i to n do
if ((a[i]*a[j]) mod 17=0) and ((j-i)>=3) then begin
writeln(a[i],' ',a[j],' ',a[i]*a[j]);f:=f+1 end;
writeln(f);
readln
end.