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

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

program zadacha;uses crt;var i, a, b, e, kol: integer;beginkol:=0;for i:=1 to 2014 dobegine:=i*i;if (e<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.