Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 36:
var i, k: integer;
function F(x:integer):integer;
begin
if x < 2 then
F:= 1
else F:= F(x-1) + 2*F(x-2);
end;
begin
i := 28;
readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
writeln(i);
end.
Поделись с друзьями
Ответ оставил Гуру
Для начала смотрим что выходит при К= 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;
21 Задание ЕГЭ Информатика
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
Оцени ответ
Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Источник: urokilegko.ru
Определите, количество чисел к, для которых следующая программа выведет такой же результат, что и для k=30
type oras = (chisinau, orhei, balti, tigina, tiraspol); zi = (l, ma, mi, j, v, s, d); consum = array [oras, zi] of real; var c : consum; r : oras; z : zi; i,k : integer; sum,min_r,max_r,min_z,max_z: real; n_max_r,n_min_r,n_max_z,n_min_z: integer; begin r: =chisinau; randomize; for i: =1 to 5 do begin z: =l; for k: =1 to 7 do begin c[r,z]: =random*100; z: =succ(z); end; r: =succ(r); end; r: =chisinau; for i: =1 to 5 do begin z: =l; case ord(r) of 0: writeln(‘chisinau’); 1: writeln(‘orhei’); 2: writeln(‘balti’); 3: writeln(‘tigina’); 4: writeln(‘tiraspol’); end; for k: =1 to 7 do begin write(c[r,z]: 6: 2); z: =succ(z); end; r: =succ(r); writeln; end; writeln(‘vsego za nedelu’); r: =chisinau; min_r: =99999; max_r: =0; n_min_r: =-1; n_max_r: =-1; for i: =1 to 5 do begin z: =l; case ord(r) of 0: write(‘chisinau sum=’); 1: write(‘orhei sum=’); 2: write(‘balti sum=’); 3: write(‘tigina sum=’); 4: write(‘tiraspol sum=’); end; sum: =0; for k: =1 to 7 do begin sum: =sum+c[r,z]; z: =succ(z); end; if sum> max_r then begin max_r: =sum; n_max_r: =ord(r); end; if sum< min_r then begin min_r: =sum; n_min_r: =ord(r); end;
Задание 21 ЕГЭ по Информатике
writeln(sum: 8: 2); end; writeln(‘po dnyam nedeli’); z: =l; min_z: =99999; max_z: =0; n_min_z: =-1; n_max_z: =-1;
writeln(‘den c maximalnim potrebleniem’); z: =l; for k: =1 to 7 do begin if ord(z)=n_max_z then case ord(z) of 0: writeln(‘l’); 1: writeln(‘ma’); 2: writeln(‘mi’); 3: writeln(‘j’); 4: writeln(‘v’); 5: writeln(‘s’); 6: writeln(‘d’); end; z: =succ(z); end; writeln(‘den c minimalnim potrebleniem’); z: =l; for k: =1 to 7 do begin if ord(z)=n_min_z then case ord(z) of 0: writeln(‘l’); 1: writeln(‘ma’); 2: writeln(‘mi’); 3: writeln(‘j’); 4: writeln(‘v’); 5: writeln(‘s’); 6: writeln(‘d’); end; z: =succ(z); end;
Источник: reshebnik-gdz.com
Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 12? var k, i : longint; function f(n: longint): longint; begin f: = 3*n*n — 2*n; end; begin readln(k); i : = 1; while f(i) < k do i : = i + 1; if f(i)-k < = f(i-1) then writeln(i) else writeln(i-1); end.
13,4у=10,84-2,8 13,4у=8,04 у=8,04/13,4 у=0,6
Ответ оставил: Гость
импровизация одних растений к другим
Ответ оставил: Гость
Правильный ответ : Б)
Ответ оставил: Гость
Я думаю что да, потому что многие люди не такие хорошие и поэтому они разводят других на деньги, или же кто хочет оставить свою настоящую личность в секрете.
Ответ оставил: Гость
Карта памяти, флэшка, жесткий диск
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 12? var k, i : longint; function f(n: longint): longint; begin f: = 3*n*n — 2*n; end; begin readln(k); i : = 1; while f(i) < k do i : = i + 1; if f(i)-k < = f(i-1) then writeln(i) else writeln(i-1); end.. ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Источник: yznay.com