Тест по заданию 21. ЕГЭ по информатике и ИКТ - Онлайн-тесты.
1. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := (n-4)*(n-12)+5;
end;
begin
a := -15; b := 15;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := (n-4)*(n-12)+5;
end;
begin
a := -15; b := 15;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
2. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,R :integer;
Function F(n: integer):integer;
begin
F := (n-8)*(n-6)+5;
end;
begin
a := -15; b := 15;
R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
R := F(i)
end;
end;
writeln(R)
end.
Ответ:
var a,b,i,R :integer;
Function F(n: integer):integer;
begin
F := (n-8)*(n-6)+5;
end;
begin
a := -15; b := 15;
R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
R := F(i)
end;
end;
writeln(R)
end.
Ответ:
3. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := n*(n - 15);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := n*(n - 15);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
4. Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := -(n + 10)*(n + 10);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
var a,b,i,M,R :integer;
Function F(n: integer):integer;
begin
F := -(n + 10)*(n + 10);
end;
begin
a := -10; b := 10;
M := a; R := F(a);
for i := a to b do begin
if (F(i) < R) then begin
M := i;
R := F(i)
end;
end;
writeln(M)
end.
Ответ:
5. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=100. Значение k=100 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
writeln(i)
end.
Ответ:
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
writeln(i)
end.
Ответ:
6. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=47. Значение k=47 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n+2;
end;
begin
readln(k);
i := 10;
while f(i) > k do
i := i-1;
writeln(i)
end.
Ответ:
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n+2;
end;
begin
readln(k);
i := 10;
while f(i) > k do
i := i-1;
writeln(i)
end.
Ответ:
7. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=18. Значение k=18 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n*n;
end;
begin
readln(k);
i := 1;
while f(i) < k do
i := i+2;
writeln(i)
end.
Ответ:
var
k, i: longint;
function f(n: longint): longint;
begin
f := n*n*n;
end;
begin
readln(k);
i := 1;
while f(i) < k do
i := i+2;
writeln(i)
end.
Ответ:
8. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=55. Значение k=55 также включается в подсчёт различных значений k.
var
k, i : longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
Ответ:
var
k, i : longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
Ответ:
9. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=33. Значение k=33 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k+5 < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
Ответ:
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k+5 < k-f(i-1) then
writeln(i)
else
writeln(i-1);
end.
Ответ:
10. Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k=20. Значение k=20 также включается в подсчёт различных значений k.
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i+2);
end.
Ответ:
var
k, i: longint;
function f(n: longint) : longint;
begin
f := n * n;
end;
begin
readln(k);
i := 0;
while f(i) < k do
i := i+1;
if f(i)-k < k-f(i-1) then
writeln(i)
else
writeln(i+2);
end.
Ответ:
Поделиться: