сколько существует целых положительных чисел, меньших 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;

begin

kol:=0;

for i:=1 to 2014 do

begin

e:=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.