Вход | Регистрация
Тесты онлайн, бесплатный конструктор тестов. Психологические тестирования, тесты на проверку знаний.

Список вопросов базы знаний

ЕГЭ Информатика

Вопрос id:397306
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 12.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A=0: B=0

WHILE X > 0

A = A+1

B = B +(X MOD 10)

X = X \ 10

WEND

PRINT A

PRINT B

var x, a, b: integer;

begin

readln(x);

a:=0; b:=0;

while x>0 do

begin

a:=a + 1;

b:=b + (x mod 10);

x:=x div 10;

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a=0; b=0;

while (x>0){

a = a+1;

b = b +(x%10);

x = x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a:=0; b:=0

нц пока x>0

a:=a+1

b:=b+mod(x,10)

x:=div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397307
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает

сначала 3, а потом 25.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

A = A + 1

IF (X MOD 2) <> 0 THEN

B = B+(X MOD 10)

END IF

X = X\10

WEND

PRINT A

PRINT B

program B08;

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x > 0 do

begin

a := a + 1;

if(x mod 2) <> 0 then

b := b+(x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a = 0; b = 0;

while (x > 0){

a = a+1;

if ((x%2)!=0){

b = b+(x%10);

}

x = x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 0

нц пока x > 0

a := a+1

если mod(x,2) <> 0 то

b := b+mod(x,10)

все

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397308
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 25.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

A = A + 1

IF (X MOD 2) <> 0 THEN

B = B+(X MOD 10)

END IF

X = X\10

WEND

PRINT A

PRINT B

program B08;

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x > 0 do

begin

a := a + 1;

if(x mod 2) <> 0 then

b := b+(x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a = 0; b = 0;

while (x > 0){

a = a+1;

if ((x%2)!=0){

b = b+(x%10);

}

x = x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 0

нц пока x > 0

a := a+1

если mod(x,2) <> 0 то

b := b+mod(x,10)

все

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397309
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 11.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

A = A + 1

B = B + (X MOD 10)

X = X \ 10

WEND

PRINT A

PRINT B

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x>0 do

begin

a:= a + 1;

b:= b + (x mod 10);

x:= x div 10

end;

writeln(a); write(b);

end.

СиАлгоритмический язык

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a=0; b=0;

while (x>0){

a=a+1;

b=b+(x%10);

x=x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 0

нц пока x>0

a := a + 1

b := b + mod(x,10)

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397310
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже записана программа. Получив на вход число , эта программа печатает два числа, L и M. Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 8.

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 1 then

M:= M + x mod 10;

x:= x div 10;

end;

writeln(L); write(M);

end.



Вопрос id:397311
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите такое наибольшее число x, что при вводе x алгоритм печатает сначала 2, а потом 0.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 1

WHILE X > 0

A = A + 1

B = B*(X MOD 10)

X = X\10

WEND

PRINT A

PRINT B

program B08;

var x, a, b: integer;

begin

readln(x);

a := 0; b := 1;

while x > 0 do

begin

a := a+1;

b := b*(x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a = 0; b = 1;

while (x > 0){

a = a+1;

b = b*(x%10);

x = x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 1

нц пока x > 0

a := a+1

b := b*mod(x,10)

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397312
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите такое наименьшее число x, что при вводе x алгоритм печатает сначала 2, а потом 0.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 1

WHILE X > 0

A = A + 1

B = B*(X MOD 10)

X = X\10

WEND

PRINT A

PRINT B

program B08;

var x, a, b: integer;

begin

readln(x);

a := 0; b := 1;

while x > 0 do

begin

a := a+1;

b := b*(x mod 10);

x := x div 10;

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a = 0; b = 1;

while (x > 0){

a = a+1;

b = b*(x%10);

x = x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 1

нц пока x > 0

a := a+1

b := b*mod(x,10)

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397313
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на четырёх языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 16.

БейсикПаскаль

DIM X, A, B AS INTEGER

INPUT X

A = 0: B = 0

WHILE X > 0

A = A + 1

B = B + (X MOD 10)

X = X \ 10

WEND

PRINT A

PRINT B

var x, a, b: integer;

begin

readln(x);

a := 0; b := 0;

while x>0 do

begin

a := a + 1;

b := b + (x mod 10);

x := x div 10

end;

writeln(a); write(b);

end.

СиАлгоритмический

#include

void main()

{

int x, a, b;

scanf("%d", &x);

a=0; b=0;

while (x>0){

a=a+1;

b=b+(x%10);

x=x/10;

}

printf("%d %d", a, b);

}

алг

нач

цел x, a, b

ввод x

a := 0; b := 0

нц пока x>0

a := a + 1

b := b + mod(x,10)

x := div(x,10)

кц

вывод a, нс, b

кон


Вопрос id:397314
Тема/шкала: B20-Анализ программы с циклами и условными операторами-Алгоритмы, печатающие последовательно два числа

Ниже на пяти языках программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 15.

БейсикPython

DIM X, A, B AS INTEGER

INPUT X

A=0: B=1

WHILE X > 0

A = A+1

B = B*(X MOD 10)

X = X \ 10

WEND

PRINT A

PRINT B

x = int(input())

a = 0

b = 1

while x > 0:

a = a + 1

b = b * (x % 10)

x = x // 10

print(a)

print(b)

ПаскальАлгоритмический язык

var x, a, b: integer;

begin

readln(x);

a:=0; b:=1;

while x>0 do

begin

a:=a+1;

b:=b*(x mod 10);

x:= x div 10

end;

writeln(a); write(b)

end.

алг

нач

цел x, a, b

ввод x

a:=0; b:=1

нц пока x>0

a:=a+1

b:=b*mod(x,10)

x:=div(x,10)

кц

вывод a, нс, b

кон

Си

#include

int main(void)

{

int x, a, b;

scanf("%d", &x);

a = 0;

b = 1;

while (x > 0){

a = a + 1;

b = b * (x % 10);

x = x / 10;

}

printf("%d %d", a, b);

}


Вопрос id:397315
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(x+5)*(x+3);

end;

BEGIN

a:= -5; b:=5;

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.

Вопрос id:397316
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=x*x-8*x+10;

end;

BEGIN

a:=-5; b:=5;

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.

Вопрос id:397317
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=-4(x+4)*(x+2);

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.

Вопрос id:397318
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(5-x)*(x+3);

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.



Вопрос id:397319
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=3*(x-10)*(x+2)+2;

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.



Вопрос id:397320
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(x-5)*(x+3);

end;

BEGIN

a:= -5; b:=5;

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.



Вопрос id:397321
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:= (x+4)*(x+2);

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.



Вопрос id:397322
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:= x*x - 8*x + 10;

end;

BEGIN

a:=-5; b:=5;

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.



Вопрос id:397323
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R:integer;

Function F(x:integer):integer;

begin

F:= x*x + 6*x + 10;

end;

begin

a:=-10; b:=10;

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.

Вопрос id:397324
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырех языках):

Бэйсик Паскаль
DIM A, B, T, M, R AS INTEGER

A = -20: B = 20

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F := 16*(9+x)*(9+x)+127

END FUNCTION

 var a,b,t,M,R :integer;

Function F(x: integer):integer;

begin

F = 16*(9+x)*(9+x)+127;

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.

Си Алгоритмический
#include

int F(int x)

{

return 16*(9+x)*(9+x)+127

}

void main()

{

int a, b, t, M, R;

a = -20; b = 20;

M = a; R = F(a);

for (t=a; t<=b; t++){

if (F(t) >R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

 алг

нач

цел a, b, t, R, M

a := -20; b := 20

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то

M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач := 16*(9+x)*(9+x)+127

кон


Вопрос id:397325
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырех языках):

Бэйсик Паскаль
DIM A, B, T, M, R AS INTEGER

A = -25: B = 25

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 15*(5+x)*(5+x)+125

END FUNCTION

 var a,b,t,M,R :integer;

Function F(x: integer):integer;

begin

F = 15*(5+x)*(5+x)+125;

end;

BEGIN

a := -25; 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;

write(M);

END.

Си Алгоритмический
#include

int F(int x)

{

return 15*(5+x)*(5+x)+125

}

void main()

{

int a, b, t, M, R;

a = -25; b = 25;

M = a; R = F(a);

for (t=a; t<=b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

 алг

нач

цел a, b, t, R, M

a := -25; b := 25

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то

M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач := 15*(5+x)*(5+x)+125

кон


Вопрос id:397326
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках):

БейсикПаскаль
DIM A, B, T, M, R AS INTEGER

A = -7: B = 25

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

ENDIF

NEXT T

PRINT R

FUNCTION F(x)

F = 281 - 2 * (17 + x) * (17 + x);

END FUNCTION

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;

write(R);

end.

СиАлгоритмический язык
#include

int F(int x)

{

return 281 - 2 * (17 + x) * (17 + x);

}

void main()

{

int a, b, t, M, R;

a = -7; b = 25;

M = a; R = F(a);

for (t = a; t <= b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", R);

}

алг

нач

цел a, b, t, R, M

a : = -7; b : = 25

M : = a; R : = F(a)

нц для t от a до b

если F(t) > R

то

M : = t; R : = F(t)

все

кц

вывод R

кон

алг цел F(цел x)

нач

знач : = 281 - 2 * (17 + x) * (17 + x)

кон


Вопрос id:397327
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках):

БейсикПаскаль
DIM A, B, T, M, R AS INTEGER

A = -7: B = 25

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

ENDIF

NEXT T

PRINT R

FUNCTION F(x)

F = 514 - 3 * (17 + x) * (17 + x);

END FUNCTION

var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F : = 514 - 3 * (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;

write(R);

end.

СиАлгоритмический язык
#include

int F(int x)

{

return 514 - 3 * (17 + x) * (17 + x);

}

void main()

{

int a, b, t, M, R;

a = -7; b = 25;

M = a; R = F(a);

for (t = a; t <= b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", R);

}

алг

нач

цел a, b, t, R, M

a : = -7; b : = 25

M : = a; R : = F(a)

нц для t от a до b

если F(t) > R

то

M : = t; R : = F(t)

все

кц

вывод R

кон

алг цел F(цел x)

нач

знач : = 514 - 3 * (17 + x) * (17 + x)

кон


Вопрос id:397328
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите- в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = -10: B = 27

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 2*(x -5)*(x-5)+55

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 2*(x -5)*(x-5)+55

end;

begin

a := -10; b := 27;

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.

СиАлгоритмический

#include stdio.h

int F(int x)

{

return 2*(x -5)*(x-5)+55;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 27;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := -10; b := 27

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:= 2*(x -5)*(x-5)+55

кон

Вопрос id:397329
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = -10: B = 33

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 3*(x -1)*(x-1)+37

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 3*(x -1)*(x-1)+37

end;

begin

a := -10; b := 33;

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.

СиАлгоритмический

#include stdio.h

int F(int x)

{

return 3*(x -1)*(x-1)+37;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 33;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := -10; b := 33

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:= 3*(x -1)*(x-1)+37

кон

Вопрос id:397330
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = -10: B = 31

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 2*(x*x-1)*(x*x-1)+17

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 2*(x*x-1)*(x*x-1)+17

end;

begin

a := -10; b := 31;

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.

СиАлгоритмический

#include stdio.h

int F(int x)

{

return 2*(x*x-1)*(x*x-1)+17;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 31;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := -10; b := 31

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:=2*(x*x-1)*(x*x-1)+17

кон

Вопрос id:397331
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = -10: B = 34

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 3*(x -4)*(x-4)+6

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 3*(x -4)*(x-4)+6

end;

begin

a := -10; b := 34;

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.

СиАлгоритмический

#include stdio.h

int F(int x)

{

return 3*(x -4)*(x-4)+6;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 34;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := -10; b := 34

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:= 3*(x -4)*(x-4)+6

кон

Вопрос id:397332
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = -10: B = 27

M = A: R = F(А)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 2*(x -3)*(x-3)+66

END FUNCTION

var a,b,t,M,R :integer;

Function

F(x:integer):integer;

begin

F := 2*(x -3)*(x-3)+66

end;

begin

a := -10; b := 27;

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.

СиАлгоритмический

#include stdio.h

int F(int x)

{

return 2*(x -3)*(x-3)+66;

}

void main()

{

int a, b, t, M, R;

a = -10; b = 27;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := -10; b := 27

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач:= 2*(x -3)*(x-3)+66

кон

Вопрос id:397333
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM

A, B, T, M, R AS INTEGER

A = -21: B = 21

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 12 *(9+x)*(9+x)+7

END FUNCTION

var

a,b,t,M,R :integer;

Function F(x: integer):integer;

begin

F := 12*(9+x)*(9+x)+7;

end;

BEGIN

a := -21; b := 21;

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.

СиАлгоритмический

#include

int F(int x)

{

return 12*(9+x)*(9+x)+7;

}

void main()

{

int a, b, t, M, R;

a = -21; b = 21;

M = a; R = F(a);

for (t=a; t<=b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf ("%d", M);

}

алг

нач

цел a, b, t, R, M

a := -21; b := 21

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач := 12 *(9+x)*(9+x)+7

кон


Вопрос id:397334
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM

A, B, T, M, R AS INTEGER

A = -25: B = 25

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 19*(4+x)*(4+x)+ 52

END FUNCTION

var

a,b,t,M,R :integer;

Function F(x: integer):integer;

begin

F := 19*(4+x)*(4+x)+ 52;

end;

BEGIN

a := -25; 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;

write(M);

END.

СиАлгоритмический

#include

int F(int x)

{

return 19*(4+x)*(4+x)+ 52;

}

void main()

{

int a, b, t, M, R;

a = -25; b = 25;

M = a; R = F(a);

for (t=a; t<=b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf ("%d", M);

}

алг

нач

цел a, b, t, R, M

a := -25; b := 25

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач := 19*(4+x)*(4+x)+ 52

кон


Вопрос id:397335
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках).

БейсикПаскаль

DIM A, B, T, M, R AS INTEGER

A = 5: B = 35

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT M

FUNCTION F(x)

F = 3*(x-1)*(x-1)+37

END FUNCTION

var a,b,t,M,R: integer;

Function F(x:integer): integer;

begin

F := 3*(x-1)*(x-1)+37

end;

begin

a := 5; b := 35;

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.

СиАлгоритмический

#include

int F(int x)

{

return 3*(x-1)*(x-1)+37;

}

void main()

{

int a, b, t, M, R;

a = 5; b = 35;

M = a; R = F(a);

for (t = a; t <= b; t++) {

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", M);

}

алг

нач

цел a, b, t, M, R

a := 5; b := 35

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то

M := t; R := F(t)

все

кц

вывод M

кон

алг цел F(цел x)

нач

знач := 3*(x-1)*(x-1)+37

кон



Вопрос id:397336
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках программирования).

БейсикПаскаль

DIM A, B, T, N AS INTEGER

A = -20: B = 20

N = 0

FOR T = A TO B

IF F(T) >= 0 THEN

N = N+1

END IF

NEXT T

PRINT N

FUNCTION F(x)

F = 16*(9-x)*(9-x)+127

END FUNCTION

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.

СиАлгоритмический

#include

int F(int x)

{

return 16*(9-x)*(9-x)+127;

}

void main()

{

int a, b, t, N;

a = -20; b = 20;

N = 0;

for (t=a; t<=b; t++){

if (F(t) >= 0) {

N++;

}

}

printf("%d", N);

}

алг

нач

цел a, b, t, N

a := -20; b := 20

N := 0

нц для t от a до b

если F(t) >= 0

то

N := N+1

все

кц

вывод N

кон

алг цел F(цел x)

нач

знач := 16*(9-x)*(9-x)+127

кон


Вопрос id:397337
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наибольшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на четырёх языках):

БейсикПаскаль
DIM A, B, T, M, R AS INTEGER

A = 0: B = 50

M = A: R = F(A)

FOR T = A TO B

IF F(T) > R THEN

M = T

R = F(T)

END IF

NEXT T

PRINT R

FUNCTION F(x)

F = (x+50)*(x+50)+7

END FUNCTION

var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F := (x+50)*(x+50)+7;

end;

BEGIN

a := 0; b := 50;

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.

СиАлгоритмический

#include

int F(int x)

{

return (x+50)*(x+50)+7;

}

void main()

{

int a, b, t, M, R;

a = 0; b = 50;

M = a; R = F(a);

for (t=a; t<=b; t++){

if (F(t) > R) {

M = t; R = F(t);

}

}

printf("%d", R);

}

алг

нач

цел a, b, t, M, R

a := 0; b := 50

M := a; R := F(a)

нц для t от a до b

если F(t) > R

то

M := t; R := F(t)

все

кц

вывод R

кон

алг цел F(цел x)

нач

знач := (x+50)*(x+50)+7

кон


Вопрос id:397338
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=4*(x-5)*(x+3);

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.

Вопрос id:397339
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Напишите в ответе количество различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k. Для Вашего удобства программа приведена на пяти языках программирования.

БейсикPython

DIM K, I AS LONG

INPUT K

I = 12

WHILE I > 0 AND F(I) >= K

I = I - 1

WEND

PRINT I

FUNCTION F(N)

F = N * N + 20

END FUNCTION

def f(n):

return n * n + 20

k = int(input())

i = 12

while i > 0 and f(i) >= k:

i = i - 1

print(i)

ПаскальАлгоритмический язык

var k, i : longint;

function f(n: longint) : longint;

begin

f := n * n + 20

end;

begin

readln(k);

i := 12;

while (i>0) and (f(i)>=k) do

i := i-1;

writeln(i)

end.

алг

нач

цел i, k

ввод k

i := 12

нц пока i > 0 и f(i) >= k

i := i - 1

кц

вывод i

кон

алг цел f(цел n)

нач

знач := n * n + 20

кон

Си

#include < stdio.h>

long f(long n) { return n * n + 20; }

void main()

{ long k, i;

scanf("%ld", &k);

i = 12;

while (i>0 && f(i)>=k) i––;

printf("%ld", i);

}


Вопрос id:397340
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 36. Значение k = 36 также включается в подсчёт различных значений k. Для Вашего удобства программа приведена на пяти языках программирования.

БейсикPython

DIM K, I AS LONG

INPUT K

I = 0

WHILE F(I) < K

I = I + 1

WEND

PRINT I

FUNCTION F(N)

F = N*(N-1)+10

END FUNCTION

def f(n):

return n*(n-1)+10

k = int(input())

i = 0

while f(i) < k:

i = i + 1

print(i)

ПаскальАлгоритмический язык

var k, i : longint;

function f(n: longint) :

longint;

begin

f := n*(n-1)+10

end;

begin

readln(k);

i := 0;

while (f(i) < k) do

i := i+1;

writeln(i)

end.

алг

нач

цел i, k

ввод k

i := 0

нц пока f(i) < k

i := i+1

кц

вывод i

кон

алг цел f(цел n)

нач

знач := n*(n-1)+10

кон

Си

#include

long f(long n) {

return n*(n-1)+10;

}

void main()

{

long k, i;

scanf("%ld", &k);

i = 0;

while (f(i)i++;

printf("%ld", i);

}


Вопрос id:397341
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 47. Значение k = 47 также включается в подсчёт различных значений k. Для Вашего удобства программа приведена на пяти языках программирования.

БейсикPython

DIM K, I AS LONG

INPUT K

I = 0

WHILE F(I) <= K

I = I + 1

WEND

PRINT I

FUNCTION F(N)

F = N*(N+1)- 5

END FUNCTION

def f(n):

return n*(n+1)-5

k = int(input())

i = 0

while f(i) <= k:

i = i + 1

print(i)

ПаскальАлгоритмический язык

var k, i : longint;

function f(n: longint) : longint;

f := n*(n+1)-5

end;

begin

readln(k);

i := 0;

while (f(i)<=k) do

i := i+1;

writeln(i)

end.

алг

нач

цел i, k

ввод k

i := 0

нц пока f(i) <= k

i := i+1

кц

вывод i

кон

алг цел f(цел n)

нач

знач := n*(n+1)-5

кон

Си

#include

long f(long n) {

return n*(n+1)-5;

}

void main()

{

long k, i;

scanf("%ld", &k);

i = 0;

while (f(i)<=k) do

i++;

printf("%ld", i);

}


Вопрос id:397342
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=2*x*x+8*x+10;

end;

BEGIN

a:=-10; b:=10;

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.

Вопрос id:397343
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=2*x*x+8*x+10;

end;

BEGIN

a:=0; b:=10;

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.

Вопрос id:397344
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=9*(x-15)*(x+17)+2;

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.

Вопрос id:397345
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=x*x+6*x+10;

end;

BEGIN

a:=-10; b:=10;

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.

Вопрос id:397346
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=5*(x+10)*(x+2)+2;

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.



Вопрос id:397347
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=x*x+2*x+10;

end;

BEGIN

a:=-10; b:=10;

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.



Вопрос id:397348
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(x+7)*(1-x);

end;

BEGIN

a:= -5; b:=5;

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.



Вопрос id:397349
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(x+3)*(1-x);

end;

BEGIN

a:= -5; b:=5;

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.



Вопрос id:397350
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=(x+5)*(1-x);

end;

BEGIN

a:= -5; b:=5;

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.



Вопрос id:397351
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a,b,t,M,R:integer;

Function F(x:integer):integer;

begin

F := 3*(x-8)*(x-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);

end.

Вопрос id:397352
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R : integer;

Function F(x : integer) : integer;

begin

F:=4*(x-5)*(x+3);

end;

BEGIN

a:= −20; b:=0;

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.



Вопрос id:397353
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=2*(x-9)*(x-9)+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);

END.



Вопрос id:397354
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения

следующего алгоритма.

var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F := 4*(x-1)*(x-3);

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.

Вопрос id:397355
Тема/шкала: B21-Анализ программ с циклами и подпрограммами-Наименьшее значение функции

Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R :integer;

Function F(x:integer):integer;

begin

F:=3*(x-2)*(x+6);

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.

Copyright testserver.pro 2013-2024