Function F(x:integer):integer;
Begin
F := (x*x-25)*(x*x-25)+15 end;
Begin
a := -15; b:= 15; M:= a; R:= F(a) ;
for t := a to b do
if (F(t) <= R) then begin
M := t; R := F(t)
end;
write(M+15) end.
28)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, P :integer;
Function F(x: integer):integer;
Begin
F := 3*(9-x)*(9-x)+12;
end;
BEGIN
a := -10; b := 10;P := 25;N := 0;
for t := a to b do begin
if (F(t) > P) then begin
N := N+1;
end;end;
Write(N);END.
29)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, P :integer;
Function F(x: integer):integer;
Begin
F := 4*(5-x)*(5-x)+10;
end;
BEGIN
a := -10; b := 10;P := 40;N := 0;
for t := a to b do begin
if (F(t) > P) then begin
N := N+1;
end;end;
Write(N);END.
30)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N :integer;
Function F(x: integer):integer;
Begin
F := 16*(9-x)*(9-x)+127;
end;
BEGIN
a := -20; b := 20; N := 0;
for t := a to b do begin
if (F(t) >= 0) then begin
N := N+1;
end; end;
Write(N);END.
31)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N :integer;
Function F(x: integer):integer;
Begin
F := 16*(6-x)*(6-x)-450;
end;
BEGIN
a := -20; b := 20; N := 0;
for t := a to b do begin
if (F(t) >= 0) then begin
N := N+1;
end; end;
Write(N);END.
32)Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 18:
var i, k: integer;
function F(x:integer):integer;
Begin
F:=x*x;
end;
Begin
i := 0; readln(K);
while F(i) < K do
i:=i+1;
Writeln(i); end.
33)Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 30:
|
|
var i, k: integer;
function F(x:integer):integer;
Begin
F:=x*x*x*x;
end;
Begin
i := 18; readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
Writeln(i); end.
34)Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 22:
var i, k: integer;
function F(x:integer):integer;
Begin
F:=x*x*x+x*x;
end;
Begin
i := 20; readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
Writeln(i); end.
35)Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 20:
var i, k: integer;
function F(x:integer):integer;
Begin
F:=x*x+5*x;
end;
Begin
i := 15; readln(K);
while (i > 0) and (F(i) > K) do
i:=i-1;
Writeln(i);end.
36)Определите, количество чисел 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.
37)Определите, количество чисел 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.
38)Определите, количество чисел 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.
39)Напишите в ответе количество различных значений входной переменной 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.
40)Напишите в ответе количество различных значений входной переменной 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.
41)Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 18. Значение k = 18 также включается в подсчёт различных значений k.
var k, i : longint;
function F(x: longint) : longint;
Begin
if x < 2 then F:= 1
else F:=3* F(x-1) - F(x-2)
end;
Begin
i := 11; readln(K);
while (i> 0) and (F(i) > K) do
i:=i-1;
Writeln(i)end.
42)Определите, какое значение H нужно ввести, чтобы число, напечатанное в результате выполнения следующего алгоритма, было наибольшим.
|
|
var a,b,t,M,R,H :integer;
Function F(H, x: integer):integer;
Begin
F := -5*(x-H)*(x-H)+3;
end;
BEGIN
readln(H);
a:= -20; b:= 60;M:= a; R:= F(H,a);
for t := a to b do begin
if (F(H, t) < R) then begin
M := t; R := F(H, t)
end end;
Write ( R ) END .
43)Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 36. Значение k = 36 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n*(n-1)+10
end;
Begin
readln(k); i := 0;
while (f(i)<k) do
i := i+1;
Writeln(i)end.
44)Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 47. Значение k = 47 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n*(n+1)-5
end;
Begin
readln(k); i := 0;
while (f(i)<=k) do
i := i+1;
Writeln(i)end.
45)Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=17. Значение k=17 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
Begin
f := n*n*n + 5*n*n;
end;
Begin
readln(k); i := 1;
|
|
while f(i) < k do
i:= i+1;
if f(i)-k <= k-2*f(i-1) then
Writeln(i)
Else writeln(i-1);end.
46)Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=13. Значение k=13 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
Begin
f := n*n*n - 5*n;
end;
Begin
readln(k); i := 1;
while f(i) < k do
i:= i+1;
if 2*f(i)-k <= k-f(i-1) then
Writeln(i)
Else writeln(i-1);end.
47)Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=12. Значение k=12 также включается в подсчёт различных значений k.
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.
48)При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k=64?
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.
49)При каком наибольшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k=60?
var k, i : longint;
function f(n: longint) : longint;
Begin
f := 2*n*n - 30
end;
Begin
readln(k); i := 15;
while (i>0) and (f(i) >= k) do
i := i-1;
Writeln(i)end.
50) Определите, какое наибольшее целое значение H можно ввести, чтобы в результате выполнения программы было напечатано число 30.
Var a,b,t,M,R,H :integer;
Дата добавления: 2022-06-11; просмотров: 65; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!