Дано целое число N (> 0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE

Категория: Delphi/Pascal
2013-03-21 14:25:12
code: #pascal
program while4;
  uses crt;
  var 
    n,k:integer;
begin 
  clrscr;
  repeat
    write('Введите число ');
    readln(n);
  until n>0;
k:=1;
  while k < n do 
    k:=k*3;
  write(k=n);
  readln
end.
Поделиться:

Похожие статьи:

теги: степень, целое