 |
var i, k: integer;. function F(x:integer):integer;. F:=x*x*x+x*x+2*x;. readln(K);. while F(i) < K do. writeln(i); . while F(i) < K do
|
|
|
|
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
|
|
|
