 |
writeln(M);. var a,b,t,M,R:integer;. Function F(x: integer):integer;. for t:=a to b do begin. if F(t) < R then begin. write(R);
|
|
|
|
R: = F(t);
end;
end;
writeln(M);
END.
29) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = 26*(9+х)*(9+х)+131;
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(R);
END.
30) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = 10*(5-x)*(5-x)+120;
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;
writeln(M);
END.
31) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = 19-19*(x-1)*(x-1);
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;
writeln(M);
END.
32) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = 6*(x+10)*(x+10)+30;
end;
BEGIN
a: = -5; 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;
writeln(R);
END.
33) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
|
|
|
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = 281 - 2*(17+x)*(17+x);
end;
BEGIN
a: = -7; b: = 25;
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;
writeln(R);
END.
34) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
begin
F: = (x*x-9)*(x*x-9)+5 end;
begin
a: = -13; b: = 13; 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+7)
end.
35) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
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:
|
|
|
