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.
36) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
37) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
38) (Муфаззалов Д. Ф., УГАТУ, Уфа) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, Z :integer;
Function F(x: integer):integer;
Begin
F := 2*(x-5)*(x-5)+4;
end;
BEGIN
a := -10; b := 10;
Z := F(a);
N := 0;
for t := a to b do begin
if (F(t) <Z) then begin
N := N+1;
Z:=F(t);
end;
end;
Write ( N );
END .
39) (Муфаззалов Д. Ф., УГАТУ, Уфа) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, Z :integer;
Function F(x: integer):integer;
Begin
F := 2*(x-5)*(3-x)+4;
end;
BEGIN
a := 2; b := 9;
Z := F(a);
N := 0;
for t := a to b do begin
if (F(t) <Z) then begin
N := N+1;
Z:=F(t);
end;
end;
write ( N );
END .
40) (Муфаззалов Д. Ф., УГАТУ, Уфа) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, Z :integer;
Function F(x: integer):integer;
Begin
F := -2*(5-x)*(2-x)+4;
end;
BEGIN
|
|
|
a := 2; b := 9;
Z := F(a);
N := 0;
for t := a to b do begin
if (F(t) <Z) then
N := N+1;
Z:=F(t);
end;
write(N);
END .
41) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
42) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
43) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
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.
44) Определите, количество чисел 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.
45) Определите, количество чисел 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.
46) Определите, количество чисел 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.
47) Определите, количество чисел 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.
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(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.
58) Определите, какое значение 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 .
59) Напишите в ответе число различных значений входной переменной 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.
60) Напишите в ответе число различных значений входной переменной 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.
61) При каком наибольшем значении входной переменной 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.
62) При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 90?
var k, i : longint;
function f(n: longint) : longint;
Begin
f := n * n * n - 30
end;
Begin
readln(k);
i := 12;
while (i>0) and (f(i)> k) do
i := i-1;
Writeln(i)
End.
63) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
Begin
if x > 0 then
f := x mod 10 + f(x div 10)
Else
f := 0;
end;
Begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 10) = 1 then
if f(i div 100) = f(i mod 100) then k := k + 1;
writeln(k);
End.
64) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
Begin
if x > 0 then
f := x mod 10 + f(x div 10)
Else
f := 0;
end;
Begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 100) = 4 then
if f(i div 100) = f(i mod 100) then k := k + 1;
writeln(k);
End.
65) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
var m: integer;
Begin
if x < 10 then f := x
Else begin
m := f(x div 10);
if m < x mod 10 then
f := x mod 10
else f := m;
end;
end;
Begin
k := 0;
for i := 1000 to 9999 do
if f(i mod 100) = 1 then
if f(i div 100) = f(i mod 100) then
k := k + 1;
writeln(k);
End.
66) (Д.Ф. Муфаззалов, Уфа) Напишите в ответе количество различных значений входной переменной a из интервала от 1000 до 2000 (включая границы), при которых программа выдаёт тот же ответ, что и при входном значении a = 1111. Значение a = 1111 также включается в подсчёт различных значений a:
var a, i, k: integer;
function f(x: integer): integer;
var m: integer;
Begin
if x < 10 then f := x
Else begin
m := f(x div 10);
if m < x mod 10 then
f := x mod 10
Else
f := m;
end;
end;
Begin
k := 0;
readln(a);
for i := 1000 to a do
if f(i mod 100) = 1 then
if f(i div 100) = f(i mod 100) then
k := k + 1;
writeln(k);
End.
67) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы:
var i, k: integer;
function f(x: integer): integer;
var m: integer;
Begin
if x < 10 then f := x
Else begin
m := f(x div 10);
if m < x mod 10 then
f := x mod 10
Else
f := m;
end;
end;
Begin
k := 0;
for i := 1000 to 3000 do
if f(i mod 100) = 1 then
if f(i div 100) =3 then
k := k + 1;
writeln(k);
End.
68) Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=14. Значение k=14 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
Begin
f := 2*n*n + 5;
end;
Begin
readln(k);
i := 1;
while f(i) < k do
i:= i+1;
if f(i)-k <= k-f(i-1) then
Writeln(i)
else writeln(i-1);
End.
69) Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=9. Значение k=9 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
Begin
f := n*n*n + 2*n;
end;
Begin
readln(k);
i := 1;
while f(i) < k do
i:= i+1;
if f(i)-k <= k-f(i-1) then
Writeln(i)
else writeln(i-1);
End.
70) Напишите в ответе число, равное количеству различных значений входной переменной 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.
71) Напишите в ответе число, равное количеству различных значений входной переменной 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.
72) Напишите в ответе число, равное количеству различных значений входной переменной 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.
73) При каком наименьшем значении входной переменной 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.
74) При каком наибольшем значении входной переменной 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.
75) Определите, какое наибольшее целое значение H можно ввести, чтобы в результате выполнения программы было напечатано число 30.
Var a,b,t,M,R,H :integer;
Дата добавления: 2021-04-07; просмотров: 71; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!