 |
writeln(i). var k, i : longint;. function f(n: longint): longint;. function g(n: longint): longint;. readln(k);. while f(i) <= k*g(i) do
|
|
|
|
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;
|
|
|
