От домика карандаша к домику самоделкина ведут две дороги, а от домика к домику незнайки - одна.нарисуй эти дороги и сосчитай все возможные пути от домика карандаша к домику незнайки
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.
я так думаю
но точно не знаю