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

• Надо добавить условие. Т.к. 1 тоже является степенью числа 3, то
  if n=1 then
  write(true)
  else
  write(temp+3=0);

  Ответить

  • Являляется, но у нас в задаче N ($$>0$$) Тоесть неравенство строгое. А насколько мне известно только $$3^0=1$$

    Ответить

    • Тогда я не понял, почему задачник ругается на некоторых числах. ((

      Ответить

      • Решая задачи подряд в каждой следующей, наверное, ищешь что-то от предыдущей. Как результат мы(мое решение аналогично) проверяем число N на кратность(!!!!) трем, а не соответствие степеням 3.

        [crayon-673ccdb3109e9491169866 inline="true" ] var A,temp:Integer; begin Read(A); temp:=1; while temp<A do //ищем максимальное 3 в степени temp:=temp*3; //которое не больше А Write(temp=A); end.

        1 2 3 4 5 6 7 8 9 10

        [crayon-673ccdb3109e9491169866 inline="true" ] var   A,temp:Integer; begin   Read(A);   temp:=1;   while temp<A do //ищем максимальное 3 в степени   temp:=temp*3;   //которое не больше А   Write(temp=A); end.

        [/crayon]

        Ответить

        • Да есть такая проблема… Когда решаю на скорость не дочитываю задание до конца. 🙁
          Но иначе я не могу, слишком их уж много. Боюсь не дойти до конца. 🙁
          Вся надежда на людей которые скажут, что нить типо «не работает».
          Было:

          while temp>=0 do temp:=temp-3; while temp<A do //ищем максимальное 3 в степени temp:=temp*3; //которое не больше А Writeln(temp+3=0);

          1 2 3 4

          while temp>=0 do temp:=temp-3; while temp<A do //ищем максимальное 3 в степени temp:=temp*3; //которое не больше А Writeln(temp+3=0);

          Стало:

          while temp<a do //ищем максимальное 3 в степени temp:=temp*3; //которое не больше А Write(temp=A);

          1 2 3

          while temp<a do //ищем максимальное 3 в степени     temp:=temp*3;   //которое не больше А   Write(temp=A);

          Ответить

• uses PT4Web;
  var n: integer;
  begin
  Task(‘while4’);
  read (n);
  write ((n mod 3)=0)
  end.

  Ответить

  • Это ошибочно, извините.

    Ответить

• да действительно… мало раз делили… надо наверно как то так(сейчас не начем копилировать, не могу проверить):

  program While4; var A:Integer; begin Write('Введите A: '); Readln(A); while A mod 3 = 0 do A:=A div 3; Write(1=A); end.

  1 2 3 4 5 6 7 8 9

  program While4; var   A:Integer; begin   Write('Введите A: ');   Readln(A);     while A mod 3 = 0 do A:=A div 3;   Write(1=A); end.

  Ответить

  • А что значит 1=А? ( в самом конце программы)?

    Ответить

• А кто-то может объяснить, что значит 1=А в конце программы?

  Ответить

  • 1=А Это логическое выражение. И получается в Write выводится значение логического выражения, если A равно 1 то выводиться True, если A не равно 1 выводиться False.

    Ответить

• Можете эту же программу с while переделать на repeat, пробовал сам сделать, но не получилось. Помогите, пожалуйста, если не трудно)

  Ответить

  • Первый вариант с repeat:

    program While04;//pabc.net begin var a := ReadlnInteger('a ='); var tmp := 1; if a > 1 then repeat tmp *= 3; until tmp >= a; Print(tmp = a) end.

    1 2 3 4 5 6 7 8 9 10 11

    program While04;//pabc.net   begin   var a := ReadlnInteger('a =');   var tmp := 1;   if a > 1 then     repeat       tmp *= 3;     until tmp >= a;   Print(tmp = a) end.

    Второй вариант с repeat:

    program While04;//pabc.net begin var a := ReadlnInteger('a ='); repeat if a mod 3 <> 0 then break else a := a div 3; until a = 1; Print(a = 1) end.

    1 2 3 4 5 6 7 8 9 10

    program While04;//pabc.net   begin   var a := ReadlnInteger('a =');   repeat     if a mod 3 <> 0 then break     else a := a div 3;   until a = 1;   Print(a = 1) end.

    Ответить

• В первом варианте решения всегда True.
  Наверно temp:=A; надо поменять на temp:=1; .

  Ответить

  • спасибо. Поправил 7 строчку 1 примера, как было сказано.

    Ответить

• Самый простой вариант в одну переменную:
  var
  n:real;
  begin
  readln (n);
  while n>1 do
  begin
  n:=n/3;
  writeln(n);
  end;
  writeln (n=1);
  end.

  Ответить