Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Readln(K);. while (i > 0) and (F(i) > K) do
|
|
while (i > 0) and (F(i) > K) do
i: =i-1;
Writeln(i);
End.
48) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 25:
var i, k: integer;
function F(x: integer): integer;
Begin
F: =x*x+8*x;
End;
Begin
i: = 0;
Readln(K);
while F(i) < K do
i: =i+1;
Writeln(i);
End.
49) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 28:
var i, k: integer;
function F(x: integer): integer;
Begin
F: =x*x*x+x*x+2*x;
End;
Begin
i: = 0;
Readln(K);
while F(i) < K do
i: =i+1;
Writeln(i);
End.
50) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 20:
var i, k: integer;
function F(x: integer): integer;
Begin
if x < 3 then
F: = 1
else F: = F(x-1) + F(x-2);
End;
Begin
i: = 21;
Readln(K);
while (i > 0) and (F(i) > K) do
i: =i-1;
Writeln(i);
End.
51) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 30:
var i, k: integer;
function F(x: integer): integer;
Begin
if x < 3 then
F: = 1
else F: = 2*F(x-1) + F(x-2);
End;
Begin
i: = 15;
Readln(K);
while (i > 0) and (F(i) > K) do
i: =i-1;
Writeln(i);
End.
52) Определите, количество чисел 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.
53) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 45:
var i, k: integer;
function F(x: integer): integer;
Begin
if x < 2 then
F: = 1
else F: = 2*F(x-1) + F(x-2);
End;
Begin
i: = 0;
Readln(K);
while F(i) < K do
i: =i+1;
Writeln(i);
End.
54) Определите, количество чисел 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.
55) Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k.
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n * n + 30
End;
Begin
Readln(k);
i: = 12;
while (i> 0) and (f(i)> =k) do
i: = i-1;
Writeln(i)
End.
56) Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k.
var k, i: longint;
function f(n: longint): longint;
Begin
f: = n * n + 20
End;
Begin
Readln(k);
i: = 12;
while (i> 0) and (f(i)> =k) do
i: = i-1;
Writeln(i)
End.
57) Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 18. Значение k = 18 также включается в подсчёт различных значений k.
var k, i: longint;
function F(n: longint): longint;
Begin
if x < 2 then
F: = 1
else F: =3* F(x-1) - F(x-2)
End;
Begin
i: = 11;
|
|