Комментарии 7

• program While22; var Number, Test : Integer; Prime : Boolean; begin write('Введите число: '); readln(Number); begin Prime := True; Test := 2; while (Test < = round(Number / 2)) and Prime do begin Prime := (Number mod Test) > 0; Test := Test + 1; end; end; writeln(Prime); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

  program While22;   var    Number, Test : Integer;    Prime : Boolean;   begin    write('Введите число: ');    readln(Number);    begin       Prime := True;       Test := 2;       while (Test < = round(Number / 2)) and Prime do          begin             Prime := (Number mod Test) > 0;             Test := Test + 1;          end;    end;    writeln(Prime);   end.

  Ответить

  • Форматирование сползло и пропали некоторые символы((
    Еще одна попыка, только основное условие:

    while (Test 0;
    Test := Test + 1;
    end;

    Ответить

    • К сожалению не смогу точно восстановить условие, а оно самое главное в этом решении. Похоже оно попало между символами «< " ">»
      сделайте пожалуйста ещё одну попытку… только расположите код между тегами < p r e > код программы < / p r e >, теги писать без пробелов.

      Ответить

      • Спасибо за подсказку. Еще одна попытка:

        program While22; var Number, Test : Integer; Prime : Boolean; begin write('Введите число: '); readln(Number); begin Prime := True; Test := 2; while (Test 0; Test := Test + 1; end; end; writeln(Prime); end.

        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

        program While22;   var    Number, Test : Integer;    Prime : Boolean;   begin    write('Введите число: ');    readln(Number);    begin       Prime := True;       Test := 2;       while (Test  0;             Test := Test + 1;          end;    end;    writeln(Prime);   end.

        Ответить

        • Все равно не удалось вставить полностью.. Условие:

          while (Test {меньше или равно} round(Number {деление} 2)) and Prime do begin Prime := (Number mod Test) {больше} 0; Test := Test + 1; end;

          1 2 3 4 5

          while (Test {меньше или равно} round(Number {деление} 2)) and Prime do begin             Prime := (Number mod Test) {больше} 0;             Test := Test + 1; end;

          Ответить

          • Спасибо за настойчивость )
            Добавил решение в шапку….
            наталкнуло ещё на одно решение:

            program While22; var N, Count : Integer; begin write('N: '); readln(N); Count := 2; while ((Count < = round(N / 2)+1) and ((N mod Count)>0)) do inc(Count); writeln(Count>round(N/2)); end.

            1 2 3 4 5 6 7 8 9 10 11 12 13

            program While22;   var    N, Count : Integer;   begin    write('N: ');    readln(N);    Count := 2;    while ((Count < = round(N / 2)+1) and ((N mod Count)>0)) do inc(Count);      writeln(Count>round(N/2)); end.

            Ответить

• как решить эту задачу в Phyton?

  Ответить