 |
m := f(x div 10);. if m < x mod 10 then. 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
|
|
|
|
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;
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;
|
|
|
