Найти все целые числа

@Genius94 · Регистрация: 21.11.2011

Author24 — интернет-сервис помощи студентам

Найти все целые числа из промежутка от 200 до 500, у которых ровно шесть делителей равно k

@Demsol · 30.11.2011, 12:10

Delphi

for i:=200 to 500 do
begin
n:=i;
isis:false;
for j:=1 to 6 do
begin
if n mod k=0 then n:=n div k else continue;
if j:=6 then isis:=true;
end;
if (isis)AND(n mod k <>0) then a[i]:=true else a[i]:=false;
end;

a - булев массив N-переменная целочисленного типа, isis- булева переменная

@Genius94 1 / 1 / 0 Регистрация: 21.11.2011 Сообщений: 121
		1
	Найти все целые числа 30.11.2011, 09:33. Показов 407. Ответов 1 Метки нет (Все метки) Найти все целые числа из промежутка от 200 до 500, у которых ровно шесть делителей равно k 0

	30.11.2011, 12:10