Изменить программу, чтобы в ней использовались рекуррентные последовательности

@Евдокия · Регистрация: 24.10.2013

Author24 — интернет-сервис помощи студентам

Как нужно изменить эту программу, чтобы в ней использовались рекуррентные последовательности?

Условие:дано целое число N>1. Вывести наибольшее целое к, при котором выполняется неравенство 3^к<N и само значение 3^к.

Pascal

 
uses crt;
var n:integer;
k:real;
begin
 clrscr;
writeln('N=');
readln(N);
k:=0;
while n>exp(k*ln(3)) do
k:=k+1;
writeln('max k=',k-1:3:0);
writeln('rezultat',exp((k-1)*ln(3)):4:2);
readln;
end.

@Puporev · 18.11.2013, 15:20

Pascal

uses crt;
var n,k,x:integer;
begin
clrscr;
write('N=');
readln(N);
k:=0;
x:=1;
while x<=n do
 begin
  k:=k+1;
  x:=x*3;
 end;
writeln('max k=',k);
writeln('rezultat=',x);
readln;
end.

@Евдокия · 18.11.2013, 15:35 **[ТС]**

Спасибо большое!

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	18.11.2013, 15:35 [ТС]	3
	Спасибо большое! 0