1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
Один из самых простых 1221 (7+3*2*2+3)=43
Ответ я так понимаю будет 42
Так как цикл продолжается 6 раз от 3 до 9
сначала такие оказания :
S K
0 3
3 4
7 5
12 6
18 7
25 8
33 9
42
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then
Рабочий код
var
n, k: integer;
begin
read(n);
k := 0;
while n mod 7 = 0 do
begin
k := k + 1;
n := n div 7;
end;
if n = 1 then
writeln(k)
else
writeln('He существует')
end.
Правильное решение данной задачи
const
divider = 7;
var
n: integer;
k: real;
begin
read(n);
k := ln(n) / ln(divider);
if round(k) = k then
writeln(round(k))
else
writeln('He существует');
end.