Question

сколько существует целых положительных чисел , меньших 2015, квадрат которых делится без остатка на 15 ?

Answer 1

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.

Answer 2

Всего 134 числа. См приложение.

2ecf50d513e347289ab6342c2deb7e4f.xls