Дана задача:
Определить является ли число 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.
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.
Ответы
Ответ дал:
0
div это целая часть от деления
4 div 3 = 1
программа всегда закончит работу на единице
4 div 3 = 1
программа всегда закончит работу на единице
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
9 лет назад