OR

← →
KLAUS © (2006-03-20 12:56) [0]

Всем привет! Люди подскажите плиз где ошибка, нужно найти такое число, которое делилось бы только на 1 или на само себя . Где ошибка??
z:=Random(156); n1: if ((z mod 3 ) or (z mod 5) or (z mod 7) or (z mod 9) or (z mod 4 ) or (z mod 2) or (z mod 6) or (z mod 8)) = 0 then goto n else z:=z+1 ; goto n1; n:

← →
MBo © (2006-03-20 13:01) [1]

Существует много методов определения, простое ли число.
Один из простейших - проверить его делимость на числа в цикле от 2 до Round(Sqrt(N))
Судя по твоему коду, тебе нужно познакомиться с использованием циклов for, while, repeat

← →
KLAUS © (2006-03-20 13:24) [2]

Да не с циклами знаком, но не выходит:
for n:=1 to 9 do n2: if (z mod n) = 0 then goto n1 else z:=z+1; goto n2 ;

← →
TUser © (2006-03-20 13:30) [3]

> Да не с циклами знаком, но не выходит:

Не факт

← →
KLAUS © (2006-03-20 13:32) [4]

Мда, вопрос в другом, как быть, кто-нить всё таки подскажет!!

← →
TUser © (2006-03-20 13:35) [5]

for i:=2 to trunc (sqrt (N)) do
if N mod i = 0 then begin
Число N - не простое;
break;
end;

← →
Gydvin © (2006-03-20 13:37) [6]

KLAUS © (20.03.06 13:24) [2]

Ну кто ж из цикла прыгает вот

for n:=1 to 9 do begin
if (z mod n) = 0 then begin
//////тут действия
end else z:=z+1;
end;

← →
Gydvin © (2006-03-20 13:39) [7]

KLAUS © (20.03.06 13:24) [2]

Ну кто ж из цикла прыгает вот

for n:=1 to 9 do begin if (z mod n) = 0 then begin //////тут действия end else z:=z+1; end;

на крайняк так

for n:=1 to 9 do begin if (z mod n) = 0 then begin break; ////помоему goto n1; end else z:=z+1; end;

← →
Плохиш © (2006-03-20 13:40) [8]

> for n:=1 to 9 do begin

Число 121 простое или нет?

← →
KLAUS © (2006-03-20 13:45) [9]

Простое простое

← →
MBo © (2006-03-20 13:49) [10]

> Плохиш © (20.03.06 13:40) [8]
а ты коварный ;))

← →
Ega23 © (2006-03-20 13:54) [11]

> Число 121 простое или нет?

Нет, канешна...

← →
KLAUS © (2006-03-20 13:54) [12]

Всё это весело, но не один из способов не подходит!
Число у меня генерится и нужно проверить простое оно или нет...не один из способов не подошёл!!

← →
KLAUS © (2006-03-20 13:57) [13]

> Нет, канешна

А на что, оно ещё делится, кроме 1 и 121 ??

> KLAUS © (20.03.06 13:54) [12]
> Всё это весело

Гораздо веселее вот это

> А на что, оно ещё делится, кроме 1 и 121 ??

> KLAUS © (20.03.06 13:57) [13]
>
> > Нет, канешна
>
> А на что, оно ещё делится, кроме 1 и 121 ??

Как тут весело :-))

PS. возведи 11 в квадрат и удивись.

МЛя, ну ошибся.... не оборжитесь!!

MBo, Gydvin, TUser - СПАСИБО!
Разобрался!

OR Найти похожие ветки