Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
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;
|
|