Массивы - Помощь студентам - Страница 2

vbchristy46 · 15.06.2010, 16:39

Я сначала благодарю,потом уже проверяю)))) Спасибо!

megachuhancer · 15.06.2010, 16:48

А ведь на самом деле неправильно. Должно быть:

Код:

for i := 1 to trunc(sqrt(a)) do if a mod i = 0 then Inc(count, 2);
if trunc(sqrt(a)) = sqrt(a) then Dec(count);

А то я корень из числа лишний раз считал. Вот что бывает, когда на пустом месте охота понтануться

15.06.2010, 16:48	#12
megachuhancer Форумчанин Регистрация: 16.04.2009 Сообщений: 247	А ведь на самом деле неправильно. Должно быть: Код: `for i := 1 to trunc(sqrt(a)) do if a mod i = 0 then Inc(count, 2); if trunc(sqrt(a)) = sqrt(a) then Dec(count);` А то я корень из числа лишний раз считал. Вот что бывает, когда на пустом месте охота понтануться

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Массивы	Veronika#	Паскаль, Turbo Pascal, PascalABC.NET	13	17.12.2010 17:28
Динамические массивы и массивы варианты	N@stya	Помощь студентам	0	11.06.2010 21:09
С++, Массивы, динамические массивы.	-Sunshine-	Помощь студентам	1	19.04.2010 02:17
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12

15.06.2010, 16:39	#11
vbchristy46 Пользователь Регистрация: 08.06.2010 Сообщений: 34	Я сначала благодарю,потом уже проверяю)))) Спасибо!