Решаем задачи Абрамян на Паскале. While9

While9. Дано целое число $$N$$ ($$> 1$$). Найти наименьшее целое число $$K$$, при котором выполняется неравенство $$3^K > N$$.

Решение:

program While9;
var
  N,K,Temp :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  K:=1;
  Temp:=3;
  while Temp<=N do
  begin
   Temp:=Temp*3;
   inc(K,1);
  end;
  Writeln(K);
end.

program While9;

var

N,K,Temp :Integer;

begin

Write('Введите N: ');

Readln(N);

K:=1;

Temp:=3;

while Temp<=N do

begin

Temp:=Temp*3;

inc(K,1);

end;

Writeln(K);

end.

Решение от Kirk:

Program w9;

Var
 n,k: integer;
 
Begin
 Readln(n);
 k:=1;
 While power(3,k)<n do Inc(k);
 write(k);
End.

Program w9;

Var

n,k: integer;

Begin

Readln(n);

k:=1;

While power(3,k)<n do Inc(k);

write(k);

End.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 3

Kirk

07.04.2017 в 12:35

Delphi/Pascal

Program w9; Var n,k: integer; Begin Readln(n); k:=1; While power(3,k)<n do Inc(k); write(k); End.

1
2
3
4
5
6
7
8
9
10
11

Program w9;

Var
n,k: integer;

Begin
Readln(n);
k:=1;
While power(3,k)<n do Inc(k);
write(k);
End.

Ответить
- Anton
  
  07.04.2017 в 12:52
  
  Да, круто. Добавил в шапку.
  
  Ответить
Bronislav

11.12.2017 в 02:11

меньше или равно

While power(3,k)<=n do Inc(k);

1

While power(3,k)<=n do Inc(k);

Ответить

Решаем задачи Абрамян на Паскале. While9

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ