Function F(H, x: integer):integer;
Begin
F := 11*(x-H)*(x-H)+13;
End;
BEGIN
Readln(H);
a := 0; b := 30;
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(M)
END.
76) Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 12.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := 3*n + 2;
end;
Begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
77) Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 16.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := 3*n + 3;
end;
Begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
78) Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 14.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := 5*n + 1;
end;
Begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
79) Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 30.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := 3*n + 6;
end;
Begin
|
|
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
80) Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 18.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n;
end;
function g(n: longint): longint;
Begin
g := 2*n + 5;
end;
Begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
81) Напишите в ответе наибольшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 45.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n;
end;
function g(n: longint): longint;
Begin
g := 3*n + 2;
end;
Begin
readln(k);
i := 1;
while f(i) < g(k) do
i := i+1;
Writeln(i)
End.
82) Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт ответ 21.
var k, i : longint;
function f(n: longint): longint;
Begin
f := n * n * n;
end;
function g(n: longint): longint;
Begin
g := n*n;
end;
Begin
readln(k);
i := 1;
while f(i) <= k*g(i) do
i := i+1;
Writeln(i)
End.
83) (Д. Муфаззалов, Белград) Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
|
|
var i, k,a: integer;
function f(x: integer): integer;
Begin
if x >1 then
f := x mod 2 + f(x div 2)
Else
f := x;
end;
Begin
k := 0;
Readln(a);
for i := 1 to a do
if f(i) = 1 then k:=k+1;
Writeln(k);
End.
84) (Д. Муфаззалов, Белград) Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var i, k,a: integer;
function f(x: integer): integer;
Begin
if x >1 then
f := x mod 2 + f(x div 2)
Else
f := x;
end;
Begin
k := 0;
Readln(a);
for i := 1 to a do
if f(i) = 2 then k:=k+1;
Writeln(k);
End.
85) (Д. Муфаззалов, Белград) Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var i, k,a: integer;
function f(x: integer): integer;
Begin
if x >1 then
f := x mod 3 + f(x div 3)
Else
f := x;
end;
Begin
k := 0;
Readln(a);
for i := 1 to a do
if f(i) =2 then k:=k+1;
Writeln(k);
End.
86) (Д. Муфаззалов, Белград) Напишите в ответе количество различных натуральных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт число меньше 20.
|
|
var i, k,a: integer;
function f(x: integer): integer;
Begin
if x >1 then
f := x mod 2 + f(x div 10)
Else
f := x;
end;
Begin
k := 0;
Readln(a);
for i := 1 to a do
if f(i) =1 then k:=k+1;
Writeln(k);
End.
87) (Д. Муфаззалов, Белград). Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var i, k, a: integer;
function f(x: integer; y: integer): integer;
Begin
if x = y then
f := x else
if x > y then f := f(x - y, y)
else f := f(x, y - x);
end;
Begin
k := 0;
Readln(a);
for i := 1 to a do
if f(i, 4) = 2 then k := k + 1;
Writeln(k);
End.
88) (Д. Муфаззалов, Белград). Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 100 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 20. Значение a = 20 также включается в подсчёт различных значений a.
var i, k, a: integer;
function f(x: integer; y: integer): integer;
Begin
if y = 0 then f := x else f := f(y, x mod y)
end;
Begin
k := 0;
readln(a);
for i := 4 to a do
if f(i, 4) = 3 then k := k + 1;
Writeln(k);
End.
89) (Д. Муфаззалов, Белград). Напишите в ответе минимальное натуральное число, при вводе которого программа выдаст число, отличное от нуля.
|
|
var i, k, a: integer;
function f(x: integer; y: integer): integer;
Begin
if y = 0 then f := x else f := f(y, x mod y)
end;
Begin
k := 0;
readln(a);
for i := 1 to a do
if f(a, i) = 8 then k := k + 1;
Writeln(k);
End.
90) (Д. Муфаззалов, Белград). Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 20 (включая границы), при которых программа выдаёт ответ 2.
var i, k, a: integer;
function f(x: integer; y: integer): integer;
Begin
if y = 0 then f := x else f := f(y, x mod y)
end;
Begin
k := 0;
readln(a);
for i := 1 to a do
if f(a, i) = i then k := k + 1;
Writeln(k);
End.
91) (Д. Муфаззалов, Белград). Напишите в ответе количество различных значений входной переменной a из интервала от 1 до 30 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 17. Значение a = 17 также включается в подсчёт различных значений a.
var i, k, a: integer;
function f(x: integer; y: integer): integer;
Begin
if y = 0 then f := x else f := f(y, x mod y)
end;
Begin
k := 0;
readln(a);
for i := 1 to a do
if f(a, i) = i then k := k + 1;
Writeln(k);
End.
92) Напишите в ответе минимальное значение переменной k, при вводе которого программа напечатает число 15.
var k, i : integer;
function f(n: integer): integer;
Begin
f := n * n * n;
end;
function g(n: integer): integer;
Begin
g := n*n;
end;
Begin
readln(k);
i := 1;
while f(i) < k*g(i) do
i := i+1;
Writeln(i)
End.
93) Определите, какое число выведет эта программа:
var i: integer;
function f(n: integer): integer;
Begin
f := n*n*n;
end;
function g(n: integer): integer;
Begin
g := 100* n*n + 50 ;
end;
Begin
i := 1;
while f(i) < g(i) do
i := i *2 ;
Writeln(i)
End.
94) Напишите в ответе минимальное значение переменной k, при вводе которого программа напечатает число 12.
var k, i : integer;
function f(n: integer): integer;
Begin
f := (n+1)*(n+1);
end;
function g(n: integer): integer;
Begin
g := n*n;
end;
Begin
readln(k);
i := 1;
while f(i) < g(i)+k do
i := i+1;
Writeln(i)
End.
95) Определите, какое число выведет эта программа:
var a, b, t, M, R: integer;
function F(x: integer):integer;
Begin
F := 3*(x*x-1)*(x*x-1)+15;
end;
Begin
a := -10; b := 10;
M := a; R := F(a);
for t := a to b do
if F(t) < R then begin
M := t;
R := F(t);
end;
writeln(M + R);
End.
96) Определите, какое число выведет эта программа:
var a, b, t, M, R: integer;
function F(x: integer):integer;
Begin
F := 9*(x*x-4)*(x*x-4)+25;
end;
Begin
a := -10; b := 10;
M := a; R := F(a);
for t := a to b do
if F(t) <= R then begin
M := t;
R := F(t);
end;
writeln(M + R);
End.
97) (Д . В . Богданов) Укажите наименьшее значение входной переменной 𝑘, при котором программа напечатает ответ 0.
function f(x,b:integer): integer;
Begin
f := (x * x - x - 2) * (x - b)
end;
var k, t, a, b, c : integer;
Begin
c := 0;
readln(k);
a := 0; b := 5;
for t := a to b do
if f(t - 1, k) = 0 then
c := c + 1;
Writeln(c mod 3)
End.
98) Определите, какое число выведет эта программа:
var a,b,t,M,R :integer;
function F(x:integer):integer;
Begin
F := 2*(x*x-9)*(x*x-9)+9;
end;
Begin
a := -10; b := 20;
M := a; R := F(a);
for t := a to b do begin
if F(t)<=R then begin
M := t;
R := F(t);
end;
end;
write(M*R);
End.
99) Определите, какое число выведет эта программа:
var a,b,t,M,R :integer;
function F(x:integer):integer;
Begin
F := 3*(x*x-16)*(x*x-16)+5;
end;
Begin
a := -10; b := 20;
M := a; R := F(a);
for t := a to b do begin
if F(t) < R then begin
M := t;
R := F(t);
end;
end;
write(M*R);
End.
100) Определите наибольшее значение входной переменной k, при котором программа выдаёт ответ 7:
Var
k, i : longint;
function f(n: longint): longint;
Begin
f := n*n + 2*n
end;
Begin
readln(k);
i := 20;
while f(i) > k do i := i-1;
Writeln(i)
End.
101) Определите наибольшее значение входной переменной k, при котором программа выдаёт ответ 9:
Var
k, i : longint;
function f(n: longint): longint;
Begin
f := n*n + 4*n
end;
Begin
readln(k);
i := 20;
while f(i) > k do i := i-1;
Writeln(i)
End.
102) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-4)+abs(x+4)-12) + 1
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<=R) then begin
M := t;
R:= F(t)
End
end;
write(M);
End.
103) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-6)+abs(x+6)-20) + 5
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
104) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-3)+abs(x+3)-10) + 8
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<=R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
105) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(x-6)+abs(x+6) + 5
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<= R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
106) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(x-3) + abs(x+3) + 7
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)< R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
107) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-8)+abs(x+8) - 2) + 12
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<=R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
108) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x:integer):integer;
Begin
F := abs(abs(x-7)+abs(x+7) - 16) - 10
end;
Begin
a := -20; b := 20;
M := a; R:= F(a);
for t := a to b do begin
if (F(t)<=R) then begin
M := t;
R:= F(t)
End
end;
write(M+R);
End.
109) (В.Н. Бабий, г. Челябинск) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,R:integer;
Function F(x: integer):integer;
Begin
F := 3*x*x+5*x-100;
end;
Function G(x: integer):integer;
Begin
G := -x*x-3*x+92;
end;
BEGIN
a := -20; b := 20;
R := 0;
for t := a to b do
if (F(t)<=G(t)) then
R := R+1;
write(R);
END.
110) (В.Н. Бабий, г. Челябинск) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,R:integer;
Function F(x: integer):integer;
Begin
F := 4*x*x - 20*x - 63;
end;
Function G(x: integer):integer;
Begin
G := -2*x*x+4*x+63;
end;
BEGIN
a := -20; b := 20;
R := 0;
for t := a to b do
if (F(t)<=G(t)) then
R := R+1;
write(R);
END.
111) (В.Н. Бабий, г. Челябинск) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,R:integer;
Function F(x: integer):integer;
Begin
F := 2*x*x-3*x-20;
end;
Function G(x: integer):integer;
Begin
G := -11*x+4;
end;
BEGIN
a := -20; b := 20;
R := 0;
for t := a to b do
if (F(t)<=G(t)) then
R := R+1;
write(R);
END.
112) (В.Н. Бабий, г. Челябинск) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := 2*(x-6)*(x+4);
end;
Function G(x: integer):integer;
Begin
G := -3*(x+2)*(x-10)+2;
end;
BEGIN
a := -20; b := 20;
M := F(a); R := G(a);
for t := a to b do
if (F(t)<M) and (G(t)>R) then begin
M := f(t);
R := G(t);
end;
write(M+R);
END .
113) (В.Н. Бабий, г. Челябинск) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
Begin
F := x*x+4*x+2;
end;
Function G(x: integer):integer;
Begin
G := -x*x+2*x+10;
end;
BEGIN
a := -20; b := 20;
M := F(a); R := G(a);
for t := a to b do
if (F(t)<M) or (G(t)>R) then begin
M := f(t);
R := G(t);
end;
write(M+R);
END.
114) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x>0
then F := (x-10)*(x-10) + 5
else F := (x+9)*(x+9) + 11
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) < R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
115) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x>0
then F := (x-6)*(x-6) + 12
else F := (x+9)*(x+9) + 11
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) < R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
116) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x>0
then F := x*x + 12
else F := (x+9)*(x+9) + 8
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) > R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
117) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x>0
then F := x*x + 5
else F := (x+9)*(x+9) + 9
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) > R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
118) (А. Богданов) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x<=0 then F := abs(x-3) + 5
else F := abs(x-8) + 8
end;
Begin
a := -8; b := 8;
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+R);
End.
119) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
if x>0 then
F := (x*x-11)*(x*x-11) + 11
Else
F := (x*x-7)*(x*x-7) + 11
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) <= R then begin
M := t;
R := F(t)
End
end;
write(M+R);
End.
120) (А.М. Кабанов, г. Тольятти) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
F := (x*x – 60)*(x*x – 60)+11
end;
Begin
a := -15; b := 15;
M := a; R := F(a);
for t := a to b do begin
if F(t) <= R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
121) (А.М. Кабанов, г. Тольятти) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
F := (2*x*x – 36)*(2*x*x – 36)+5
end;
Begin
a := -10; b := 10;
M := a; R := F(a);
for t := a to b do begin
if F(t) < R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
122) (А.М. Кабанов, г. Тольятти) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
F := -(150 -3*x*x)*(150-3*x*x)+5
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) >= R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
123) (А.М. Кабанов, г. Тольятти) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R :integer;
function F(x:integer):integer;
Begin
F := (5*x+x*x)*(5*x-x*x)+5
end;
Begin
a := -9; b := 9;
M := a; R := F(a);
for t := a to b do begin
if F(t) > R then begin
M := t;
R := F(t)
End
end;
write(M+R)
End.
124) (А. Носкин) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, K, R :integer;
function F(x:integer):integer;
Begin
F := abs(abs(x-7)+abs(x+7)-20) + 4
end;
Begin
a := - 20 ; b := 20 ;
K := 0; R := F(a);
for t := a to b do begin
if (4 <= F(t)) and (F(t) < 10) then begin
K := K + 1;
if F(t) > R then
R := F(t)
End
end;
write ( K + R )
End .
125) (А. Носкин) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, K, R :integer;
function F(x:integer):integer;
Begin
F := abs(abs(x-2)+abs(x+2)-10) + 4
end;
Begin
a := -20; b := 20;
K := 0 ; R := F(a);
for t := a to b do
if F(t) <= 10 then
K := K + 1;
Write(K)
End .
[1] Источники заданий:
1. Демонстрационные варианты ЕГЭ 2012-2016 гг.
2. Тренировочные работы МИОО и Статград.
3. Крылов С.С., Ушаков Д.М. ЕГЭ 2015. Информатика. Тематические тестовые задания. — М.: Экзамен, 2015.
4. Ушаков Д.М. ЕГЭ-2015. Информатика. 20 типовых вариантов экзаменационных работ для подготовки к ЕГЭ. — М.: Астрель, 2014.
5. Авторские разработки.
Дата добавления: 2021-04-07; просмотров: 57; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!