Для начала смотрим что выходит при К= 36, выходит 5
Анализируем функцию F. Это линейная функция наподобии Фибоначи, значит ответом будет некий один отрезок из К
Потом немножко дорабатываем программу и смотрим на результат
var
i, K, counter: integer;
function F(x: integer): integer;
begin
if x < 2 then
F := 1
else F := F(x - 1) + 2 * F(x - 2);
end;
begin
for K := 0 to 100 do
begin
i := 28;
// readln(K);
while (i > 0) and (F(i) > K) do
i := i - 1;
if i = 5 then begin
counter := counter + 1;
writeln(counter, ') K = ', K);
end;
end
end.
Вывод
1) K = 21
2) K = 22
3) K = 23
4) K = 24
5) K = 25
6) K = 26
7) K = 27
8) K = 28
9) K = 29
10) K = 30
11) K = 31
12) K = 32
13) K = 33
14) K = 34
15) K = 35
16) K = 36
17) K = 37
18) K = 38
19) K = 39
20) K = 40
21) K = 41
22) K = 42
ответ 22
1)x = (input('x= '))
y = (input('y= '))
z = (input('z= '))
c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))
print(
else:
2)uses crt;
var x,y:real;
f1,f2:boolean;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
f1:=(x>2)and(y>3);
f2:=(x>1)and(y>-2);
writeln(f1);
write(f2);
readln
end.
3)uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
5)uses crt;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=40 to 140 do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.
