Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.