Сформировать последовательность заглавных букв

[BDA]

Подумал еще над второй задачей.
Получается, что таких чисел нет
Если число делится на 2, 3, 5 и не делится больше ни на какие числа (например на 6, 10, 15, 30), то... я пришел к противоречию.

[Poma][a]

Подумал еще над второй задачей.
Получается, что таких чисел нет

Согласен!

Если число делится на 2 и на 5, то оно как минимум делится на 10, а это уже противоречие!!

[Sciv]

Видимо, имелись в виду числа первого десятка

Однако у меня код выдал 30, 60, 90, 120 и тп... вроде правильно. Но согласен, цикл:

for j:=2 to i-1 do

вполне допустимо заменить на

for j:=2 to 9 do

[BDA]

Sciv - противоречие остается.
Число не должно делиться на 6 тогда
Ждем разъяснений ТС (или преподавателя ТС).

[Sciv]

Sciv - противоречие остается.
Число не должно делиться на 6 тогда
Ждем разъяснений ТС (или преподавателя ТС).

Согласен, попахивает бредом от задания...

[Poma][a]

Великий яндекс помог узнать правильное задание :

Дано натуральное число n. Получить в порядке возрастания n первых натуральных чисел, которые не делятся ни на какие простые числа, кроме 2, 3 и 5.

[Sciv]

var i,j,k,N: integer;
    IsDiv, IsSimple: boolean;

begin
  ReadLn(N);
  for i:=1 to N do begin
    IsDiv:=(i mod 2=0) and (i mod 3=0) and (i mod 5=0);
    if IsDiv then
      for j:=2 to i-1 do begin
        IsSimple:=true;
        for k:=2 to j-1 do begin
          IsSimple:=j mod k<>0;
          if not isSimple then break;
        end;
        If (j<>2) and (j<>3) and (j<>5) then IsDiv:=IsSimple and (i mod j=0);
      end;
    if isDiv then WriteLn(i);
  end;
  ReadLn;
end.

Тогда как-то так... не проверял.

[Poma][a]

По-моему 3 цикла - перебор..
Мой вариант, не проверял:

begin
     ReadLn (n);

     count := 0; i := 1;
     while count < n do begin
        if not IsPrime (i) then begin
           WriteLn (i*2*3*5);
           Inc (count)
        end;
        Inc (i)
     end;

А написать процедурку IsPrime, не составит большого труда..

[Sciv]

Ромаха, хочешь совет? Замечал когда-нибудь, что большинство функций называются IsEmpty, IsExists и тп? Это потому, что предполагать изначально, что значение функции истинно - свойство скорее человеческого мышления, и удобнее кодить, не идя против собственного моска.

Это я про IsNotPrime - она у тебя проверяет что? Т.е. истину вернет, когда число является или НЕ является простым?

Такая формулировка примерно равнозначна вопросу вида: "Вы не выходите?" Для которого ответ Да и ответ Нет будут совершенно равнозначными и оба правильными

[Poma][a]

Ромаха, хочешь совет?

Естественно!

Замечал когда-нибудь, что большинство функций называются IsEmpty, IsExists и тп?

Ага..

Щас поправим

Спасибо