cделать с помощью цикла repeat until

+ 0 -

Kattsybbotina

04 июля 2014 г., 15:13:04 (9 лет назад)

var chislo:integer;
proverka:boolean;
begin 
 proverka:=true; 
    read(chislo);   
          repeat     
               if chislo=0 then                 //так как 0 не натуральное число
                 begin
                  proverka:=false; 
                  break;
                  end;
               if (chislo mod 3)>0 then         
                    begin             
                        proverka:=false;           
                        break;       
                    end     
                else chislo:=chislo div 3;   
           until(chislo=0);
    if proverka then WriteLn('Да')
    else WriteLn('Нет');
  readln;
end.