 |
writeln(M + R);. function f(x,b:integer): integer;. f := (x * x - x - 2) * (x - b). var k, t, a, b, c : integer;. readln(k);
|
|
|
|
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) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
|
|
|
