Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
1 / 1 / 0
Регистрация: 26.10.2011
Сообщений: 15
1

While: Если число является степенью числа 3, то вывести True

27.10.2011, 14:13. Показов 1499. Ответов 2
Метки нет (Все метки)

Условие:
Дано целое число N (>0). Если оно является степенью числа 3, то вывести True, если не является - вывести False.

Пробую такое решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
X,N,A: integer;
B: real;
FL: boolean;
Begin
Readln (A);
X:=3;
N:=2;
B:=0;
While B<A do
B:=Exp(N*Ln(X));
N:=N+1;
If B=A Then FL:=True
Else FL:=False;
Writeln (FL);
End.
Выдает все время False...

Добавлено через 5 часов 25 минут
вверх

Добавлено через 17 часов 59 минут
вверх
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2011, 14:13
Ответы с готовыми решениями:

Если число является степенью числа 3, то вывести True, если нет, то False
Дано целое число N (&gt; 0). Если оно есть степенью числа 3, то вывести TRUE, если нет, то False...

Цикл: Если число ялвляется степенью числа 3, то вывести TRUE а если не является - False
помогите задачку на паскале решить через while!!!!!!!!!! Дано целое число N (&gt;0). Если оно...

Дано целое число N>0.Если оно являеться степенью числа 3, то вывести True,если не являеться-вывести false.
:(ПОМОГИТЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ!!!!!!!!!!!!!

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N&gt;0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE

2
23 / 23 / 2
Регистрация: 17.10.2011
Сообщений: 173
27.10.2011, 16:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program while4;
var
 N,  s: integer;
begin
 readln(N);
 s  :=  1;
 while (s  <>  N) do begin
  s  :=  s  *  3;
  if s  >  N then break;
 end;
 if s  =  N then writeln('TRUE') else writeln('FALSE');
end.
2
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.10.2011, 16:35 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var A,B: integer;
    FL: boolean;
Begin
Readln (A);
B:=1;
While B<A do
B:=B*3;
If B=A Then FL:=True
Else FL:=False;
Writeln (FL);
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2011, 16:35

While4°. Дано целое число N (> 0). Если оно является степенью числа 3, то вывести true, если не является — вывести false.
While. Дано целое число N (&gt; 0). Если оно является степенью числа 3, то вывести true, если не...

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

Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False
Дано целое число N (&gt; 0). Если оно является степенью числа 3, то вывести True, если не является —...

Если число является степенью числа 3, то вывести True
Помогите исправить программу,она не работает int main() { int n; scanf(&quot;%d&quot;,&amp;n); while(n%3)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru