сколько существует целых положительных чисел , меньших 2015, квадрат которых делится без остатка на 15 ?
Всего 134 числа. См приложение.
Var k,i:integer; begin k:=0; for i:= 1 to 2015 do if sqr(i) mod 15=0 then inc(k); writeln('k=',k); readln; end.