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

Решим задачку в программе Pascal ABC. Пусть i - числа из промежутка от 1 до 2014, e - квадрат числа i. В каждом цикле будем отыскать значение е, сравнивать его с числом 2015 и находить остаток от разделенья числа е на 15. Если число е lt; 2015 и остаток от дробления числа е на 15 равен 0, то количество разыскиваемых чисел kol увеличиваем на 1. Выводим на экран число е и искомое число i, которое удовлетворяет условию задачки. В конце выводим итоговое значение kol на экран. Программка может смотреться так:

program zadacha;
uses crt;
var i, a, b, e, kol: integer;
begin
kol:=0;
for i:=1 to 2014 do
begin
e:=i*i;
if (elt;2015) and (e mod 15=0) then begin kol:=kol+1; writeln (i=,i); writeln (e=,e); end;
end;
writeln (kol=,kol);
end.

Ответ: таких числа 2: 15 и 30.