Дана задача: Определить является ли число N степенью числа 3 и вывести 'true' или 'false'. Задача на мой взгяд решена, но по какой то причине не выводиться 'false'.Найдите ошибку.
Вот работающий вариант
var n:integer; r:boolean;begin Read(n); repeat r:=(n mod 3) <> 0; n:=n div 3 until r or (n<=1); Writeln(not r)end.
Div это целая часть от деления 4 div 3 = 1 программа всегда закончит работу на единице
