Предмет: Информатика, автор: WildPenguin

Дана задача:
Определить является ли число 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.

Ответы

Автор ответа: gruh
0
div это целая часть от деления
4 div 3 = 1
программа всегда закончит работу на единице
Похожие вопросы
Предмет: Английский язык, автор: zimina31