Акак быть с этим? определите , количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 120: var i, k: integer; function f(x: integer): integer; begin if x < 1 then f: = 1 else f: = f(x-1) +3*f(x-2); end; begin i : = 0; readln(k); while f(i) < k do i: =i+1; writeln(i); end.

130

249

Посмотреть ответы 2

Ответы на вопрос:

lenaguceva

Информатика

4,4(97 оценок)

Var i, k: integer; function f(x: integer): integer; begin if x < 1 then f: = 1 else f: = f(x-1) +3*f(x-2); end; begin i : = 0; readln(k); while f(i) < k do i: =i+1; writeln(i); end. ответ: 220

ЛориXD

Информатика

4,7(19 оценок)

Var a: array[1..5] of integer; i,p: integer; begin p: =1; for i: =1 to 5 do begin a[i]: =random(-10,10); p*=a[i]; write(a[i], ' '); end; writeln(); writeln(p); end.var a: array[1..5] of integer; i,s: integer; beginfor i: =1 to 5 do begin a[i]: =random(-10,10); s+=a[i]; write(a[i], ' '); end; writeln(); writeln(s); end.