Вход | Регистрация

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

Вход в систему

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

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

Страница:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

Вопрос id:397203

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Ниже представлен записанный на разных языках программирования фрагмент одной и той же программы. В программе описан одномерный целочисленный массив A, в представленном фрагменте программы обрабатываются элементы массива с индексами от 1 до 21.

Бейсик	Паскаль
s = 0 n = 21 FOR i = 2 TO n s = s+2*(A(i)-A(i-1)) NEXT i	s:=0; n:=21; for i:= 2 to n do begin s:=s+2*(A[i]-A[i-1]); end;
Си	Алгоритмический язык
s = 0; n=21; for (i = 2; i <= n; i++) s=s+2*(A[i]-A[i-1]);	s:=0 n:=21 нц для i от 2 до n s:= s+2*(A[i]-A[i-1]) кц

В начале выполнения этого фрагмента в элементе массива с индексом i находилось число i (i = 1, …, 21), т. е. A[1] = 1, A[2] = 2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 40

?) 42

?) 20

?) 21

Вопрос id:397204

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Бейсик	Паскаль
s = 0 n = 32 FOR i = 2 TO n s = s+3*(A(i)-A(i-1)) NEXT i	s:=0; n:=32; for i:= 2 to n do begin s:=s+3*(A[i]-A[i-1]); end;
Си	Алгоритмический язык
s = 0; n=32; for (i = 2; i <= n; i++) s=s+3*(A[i]-A[i-1]);	s:=0 n:=32 нц для i от 2 до n s:= s+3*(A[i]-A[i-1]) кц

В начале выполнения этого в элементе массива с индексом i находилось число i (i = 1, …, 32), т. е. A[1] = 1, A[2] = 2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 31

?) 93

?) 90

?) 30

Вопрос id:397205

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Ниже приведён фрагмент программы, записанный на четырёх языках программирования.

Массив A двумерный; в программе рассматривается его фрагмент, соответствующий значениям каждого индекса от 1 до 9.

Бейсик	Паскаль
FOR n=1 TO 9 FOR k=1 TO 9 A(n,k)=n+k+1 NEXT k NEXT n	for n:=1 to 9 do for k:=1 to 9 do A[n,k]:=n+k+1
Си	Алгоритмический язык
for (n=1;n<=9;n++) for (k=1;k<=9;k++) A[n][k]=n+k+1;	нц для n от 1 до 9 нц для k от 1 до 9 A[n,k]=n+k+1 кц кц

Сколько элементов указанного фрагмента массива A будут принимать нечётные значения после выполнения данного фрагмента программы?

?) 45

?) 41

?) 36

?) 40

Вопрос id:397206

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Дан фрагмент программы:

for n:=1 to 6 do

for m:=1 to 5 do begin

C[n,m]:=C[n,m]+(2*n-m);

end;

Чему будет равно значение элемента двумерного массива С[4,3], если до выполнения этих команд С[4,3]=10?

?) 10

?) 15

?) 5

?) 25

Вопрос id:397207

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Бейсик	Паскаль
n = 25 (1) = 2 FOR i = 2 TO n A(i) = 2*A(i–1) MOD 10 NEXT i	n:=25; A[1]:=2; for i:= 2 to n do begin A[i] := 2*A[i–1] mod 10; end;
Си	Алгоритмический язык
n=25; A[1] = 2; for (i = 2; i <= n; i++) A[i] = 2*A[i–1] % 10;	n:=25 A[1] := 2 нц для i от 2 до n A[i] = mod (2*A[i–1], 10) кц

Чему будет равно значение элемента A[25] (то есть элемента массива с индексом 25) после выполнения фрагмента программы?

?) 4

?) 2

?) 6

?) 8

Вопрос id:397208

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Бейсик	Паскаль
n = 24 A(1) = 4 FOR i = 2 TO n A(i) = 4*A(i–1) MOD 10 NEXT i	n:=24; A[1]:=4; for i:= 2 to n do begin A[i] := 4*A[i–1] mod 10; end;
Си	Алгоритмический язык
n=24; A[1] = 4; for (i = 2; i <= n; i++) A[i] = 4*A[i–1] % 10;	n:=24 A[1] := 4 нц для i от 2 до n A[i] = mod (4*A[i–1], 10) кц

Чему будет равно значение элемента A[24] (то есть элемента массива с индексом 24) после выполнения фрагмента программы?

?) 6

?) 8

?) 2

?) 4

Вопрос id:397209

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы без использования условного оператора

Ниже приведён фрагмент программы, записанный на четырёх языках программирования.

Бейсик	Паскаль
FOR n=1 TO 9 FOR k=1 TO 9 A(n,k)=2*n+k NEXT k NEXT n	for n:=1 to 9 do for k:=1 to 9 do A[n,k]:=2*n+k
Си	Алгоритмический язык
for (n=1;n<=9;n++) for (k=1;k<=9;k++) A[n][k]=2*n+k;	нц для n от 1 до 9 нц для k от 1 до 9 A[n,k]=2*n+k кц кц

?) 45

?) 40

?) 41

?) 36

Вопрос id:397210

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Дан фрагмент программы, обрабатывающий массив А из 10 элементов:

j := 1;

for i:=1 tо 10 do

if A[i] = A[j] then j := i;

s := j;

Чему будет равно значение переменной s после выполнения этого алгоритма?

?) индексу элемента, равного первому, и имеющему наибольший индекс

?) 1

?) 10

?) индексу элемента, равного последнему, и имеющему наименьший индекс

Вопрос id:397211

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Дан фрагмент программы, обрабатывающий двухмерный массив A размером nxn.

for i:=1 to n-1 do

for j:= i+1 to n do

if A[i,1] < A[j,1] then begin

k:=A[i,1];

A[i,1]:=A[j,1];

A[j,1]:=k;

end;

В этом фрагменте:

?) упорядочивается первая строка массива по убыванию

?) упорядочивается первый столбец массива по убыванию

?) заменяются элементы k-ого столбца таблицы

?) заменяются элементы k-ой строки таблицы

Вопрос id:397212

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Значения элементов двухмерного массива A[1..100,1..100] задаются с помощью следующего фрагмента программы:

for i:=1 to 100 do

for k:=1 to 100 do

if i > k then

A[i,k] := i

else A[i,k] := -k;

Чему равна сумма элементов массива после выполнения этого фрагмента программы?

?) 5000

?) -5050

?) -5000

Вопрос id:397213

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Значения элементов двухмерного массива A[1..100,1..100] задаются с помощью следующего фрагмента программы:

for i:=1 to 100 do

for k:=1 to 100 do

if i = k then

A[i,k] := 1

else A[i,k] := -1;

Чему равна сумма элементов массива после выполнения этого фрагмента программы?

?) -10000

?) -9900

?) -9800

Вопрос id:397214

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

В программе описан одномерный целочисленный массив A с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

for i:=1 to 10 do

A[i]:=5*i;

for i:=1 to 10 do begin

k:=A[i]-2;

A[10-i+1]:=k;

end;

Чему будут равны элементы этого массива?

?) 3 8 13 18 23 28 33 38 43 48

?) 1 6 11 16 21 26 31 36 41 46

?) 48 43 38 33 28 23 18 13 8 3

?) 1 6 11 16 21 23 18 13 8 3

Вопрос id:397215

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Значения элементов двухмерного массива A[1..100,1..100] задаются с помощью следующего фрагмента программы:

for i : = 1 to 100 do

for k : = 1 to 100 do

if i > k then

A[i,k] : = 1

else A[i,k] : = -1;

Чему равна сумма элементов массива после выполнения этого фрагмента программы?

?) -100

?) -200

?) 100

Вопрос id:397216

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

¬В программе описан одномерный целочисленный массив с индексами от 0 до n. Ниже представлен фрагмент одной и той же программы, записанный на разных языках программирования, обрабатывающей данный массив:

Бейсик	Паскаль
s = 0 z = A(n) FOR i = 0 TO n IF A(i) > z THEN s = s + 1 NEXT i	s: = 0; z: = A[n]; for i: = 0 to n do begin if A[i] > z then s: = s + 1; end
Си	Алгоритмический язык
s = 0; z = A[n]; for (i = 0; i <= n; i++){ if (A[i] > z) s++; }	s: = 0 z: = A[n] нц для i от 0 до n если A[i] > z то s: = s + 1 все кц

Чему будет равно значение переменной s после выполнения данной программы, при любых значениях элементов массива?

?) Количеству элементов массива A, меньших последнего элемента массива

?) Индексу последнего элемента массива А, который меньше A[0]

?) Минимальному элементу в массиве A

?) Количеству элементов массива A, больших последнего элемента массива

Вопрос id:397217

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

В программе описан одномерный целочисленный массив с индексами от 0 до n. Ниже представлен записанный на разных языках программирования фрагмент одной и той же программы, обрабатывающей данный массив:

Бейсик	Паскаль
s = 0 z = A(n) FOR i = 1 TO n - 1 IF A(i) < z THEN s = s + A(i) NEXT i A(10)=10	s: = 0; z: = A[n]; for i: = 0 to n - 1 do begin if A[i] < z then s: = s + A[i]; end
Си	Алгоритмический язык
s = 0; z = A[n]; for (i = 0; i < n; i++){ if (A[i] < z) s = s + A[i];	s: = 0 z: = A[n] нц для i от 0 до n - 1 если A[i] < z то s:=s + A[i] все кц

Чему будет равно значение переменной s после выполнения данной программы? Ответ должен быть верным при любых значениях элементов массива.

?) Количеству элементов массива A, меньших последнего элемента массива

?) Минимальному элементу в массиве A

?) Сумме всех элементов массива А, меньших последнего элемента массива

?) Индексу первого элемента массива А, который меньше A[n]

Вопрос id:397218

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен записанный на разных языках программирования фрагмент одной и той же программы, обрабатывающей данный массив.

Бейсик	Паскаль
s = 0 n = 10 FOR i = 1 ТО n IF i = n - i THEN s = s + A(i) + A (i + 1) END IF NEXT i	s: = 0; n : = 10 ; for i : = 1 to n do begin if i = n - i then s : = s + A[i] + A[i + 1]; end
Си	Алгоритмический язык
s = 0; n = 10; for (i = 1; i <= n; i++){ if (i == n - i) s = s + A[i] + A[i + 1];	s: = 0 n : = 10 нц для i от 1 до n если i = n - i то s := s + A[i] + A[i + 1] все кц

В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т. е. элемент А[0]=0, А[1]=2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 11

?) 110

?) 22

Вопрос id:397219

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен записанный на разных языках программирования,фрагмент одной и той же программы, обрабатывающей данный массив:

Бейсик	Паскаль
s=0 n = 10 FOR i = 0 TO n IF A(n − i)-A(i) > A(i) THEN s = s + A(i) END IF NEXT i	s := 0; n := 10; for i:=0 to n do begin if A[n - i] - A[i] > A[i] then s := s + A[i]; end;
Си	Алгоритмический язык
s = 0; n = 10; for (i = 0; i <= n; i++ ) if(A[n - i]-A[i] > A[i]) s = s+ A[i];	s := 0 n:=10 нц для i от 0 до n если A[n - i] - A[i] > A[i] то s := s + A[i] все кц

В начале выполнения этого фрагмента в массиве находились числа 0, 10, 20, 30, 40, 50, 60, 70, 80. 90, 100, т.е. A[0] = 0, A[1] = 10 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 60

?) 100

?) 550

?) 150

Вопрос id:397220

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Бейсик	Паскаль
s = 0 n = 10 FOR i = 0 TO n IF A(n − i)-A(i) > A(i) THEN s = s + A(i) END IF NEXT i	s := 0; n := 10; for i:=0 to n do begin if A[n - i] - A[i] > A[i] then s := s + A[i]; end;
Си	Алгоритмический язык
s = 0; n = 10; for (i = 0; i <= n; i++ ) if(A[n - i]-A[i] > A[i]) s = s+ A[i];	s := 0 n:=10 нц для i от 0 до n если A[n - i] - A[i] > A[i] то s := s + A[i] все кц

В начале выполнения этого фрагмента в массиве находились числа 0,2,4,6,8,10,12,14,16,18,20 т. е. A[0] = 0, A[1] = 2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 12

?) 30

?) 20

?) 110

Вопрос id:397221

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Ниже приведён фрагмент программы, записанный на четырёх языках программирования.

Массив A одномерный; в программе рассматривается его фрагмент, оответствующий значениям индекса от 1 до n.

Бейсик	Паскаль
J = 1 FOR I = 1 TO n IF A(I) < A(J) THEN J =I NEXT I s = J	j :=1; for i: = 0 to n do begin if A[i] < A[j] then j := i end; s := j;
Си	Алгоритмический язык
j = 1; for (i = 1; i <= n; i++) { if (A[i] < A[j]) { j = i; } } s = j;	j := 1 нц для i от 1 до n если A[i] < A[j] то j := i все кц s := j

Чему будет равно значение переменной s после выполнения данного фрагмента программы?

?) минимальному элементу в массиве A

?) индексу минимального элемента в массиве A (наименьшему из таких индексов, если минимальных элементов несколько)

?) количеству элементов, равных минимальному в массиве A

?) индексу минимального элемента в массиве A (наибольшему из таких индексов, если минимальных элементов несколько)

Вопрос id:397222

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

В программе описан одномерный целочисленный массив с индексами от 0 до 12. Ниже представлен записанный на разных языках программирования фрагмент одной и той же программы, обрабатывающей данный массив:

Бейсик	Паскаль
s = 0 n = 12 FOR i = 0 TO n IF A(n–i) – A(i) = A(i) THEN s = s+2*A(i) END IF NEXT i	s := 0; n := 12; for i:=0 to n do begin if A[n–i] – A[i] = A[i] then s:=s+2*A[i]; end;
Си	Алгоритмический язык
s = 0; n = 12; for (i = 0; i <= n; i++) { if (A[n–i] – A[i] == A[i]) s = s+2*A[i]; }	s := 0 n := 12 нц для i от 0 до n если A[n–i] – A[i] = A[i] то s := s+2*A[i] все кц

В начале выполнения этого фрагмента в массиве находились числа 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, т. е. A[0] = 0, A[1] = 10 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 100

?) 60

?) 80

?) 780

Вопрос id:397223

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Бейсик	Паскаль
s = 0 n = 12 FOR i = 0 TO n IF A(n–i) – A(i) = A(i) THEN s = s+3*A(i) END IF NEXT i	s := 0; n := 12; for i:=0 to n do begin if A[n–i] – A[i] = A[i] then s:=s+3*A[i]; end;
Си	Алгоритмический язык
s = 0; n = 12; for (i = 0; i <= n; i++) { if (A[n–i] – A[i] == A[i]) s = s+3*A[i]; }	s := 0 n := 12 нц для i от 0 до n если A[n–i] – A[i] = A[i] то s := s+3*A[i] все кц

В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24 т. е. A[0] = 0, A[1] = 2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?

?) 24

?) 30

?) 12

?) 156

Вопрос id:397224

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Ниже приведён фрагмент программы, записанный на четырёх языках программирования.

Массив А одномерный; в программе рассматривается его фрагмент, соответствующий значениям индекса от 1 до n.

Бейсик	Паскаль
J = 1 FOR I = 1 to n IF A(I) < A(J) THEN J = I NEXT I s = J	j := 1; for i := 1 to n do begin if A[i] < A[j] then j := i end; s := j;
Си	Алгоритмический язык
j = 1; for (i = 1; i <= n; i++) { if (A[i] < A[j]){ j = i; } } s = j;	j := 1 нц для i от 1 до n если A[i] < A[j] то j := i все кц s := j

Чему будет равно значение переменной s после выполнения данного фрагмента программы?

?) индексу минимального элемента в массиве А (наименьшему из таких индексов, если минимальных элементов несколько)

?) минимальному элементу в массиве А

?) количеству элементов, равных минимальному в массиве А

?) индексу минимального элемента в массиве А (наибольшему из таких индексов, если минимальных элементов несколько)

Вопрос id:397225

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Ниже приведён фрагмент программы, записанный на четырёх языках программирования. Массив A одномерный; в программе рассматривается его фрагмент, соответствующий значениям индекса от 1 до n.

Бейсик	Паскаль
s = 0 FOR i = 1 TO n IF A(i)<0 THEN s = s – A(i) NEXT i	s := 0; for i := 1 to n do begin if A[i]<0 then s := s – A[i] end;
Си	Алгоритмический язык
s = 0; for (i = 1; i <= n; i++) { if (A[i] < 0) { s = s - A[i]; } }	s := 0 нц для i от 1 до n если A[i]<0 то s := s – A[i] все кц

Чему будет равно значение переменной s после выполнения данного фрагмента программы?

?) модулю суммы всех отрицательных элементов массива A

?) среднему арифметическому всех отрицательных элементов в массиве A

?) количеству отрицательных элементов в массиве A

?) сумме всех отрицательных элементов массива A

Вопрос id:397226

Тема/шкала: B19-Обработка массивов и матриц-Алгоритмы с использованием условного оператора

Значения элементов двумерного массива А были равны 0. Затем значения некоторых элементов были изменены (см. представленный фрагмент программы):

n := 0;

for i:=1 tо 5 do

for j:=1 tо 6-i do begin

n := n + 1;

A[i,j] := n;

end;

Какой элемент массива будет иметь в результате максимальное значение?

?) A[1,1]

?) A[1,5]

?) A[5,5]

?) A[5,1]

Вопрос id:397227

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

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

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 0 then

M:= M + (x mod 10) div 2;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397228

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

Бейсик	Python
DIM X, A, B AS INTEGER INPUT X A = 0: B = 0 WHILE X > 0 A = A+1 B = B + (X MOD 100) X = X\100 WEND PRINT A PRINT B	x = int(input()) a, b = 0, 0 while x > 0: a = a + 1 b = b + x%100 x = x//100 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 100); x := x div 100; end; writeln(a); write(b); end.	алг нач цел x, a, b ввод x a:=0; b:=0 нц пока x > 0 a := a+1 b := b+mod(x,100) x := div(x,100) кц вывод a, нс, b кон
Си
#include void main() { int x, a, b; scanf("%d", &x); a = 0; b = 0; while (x > 0) { a = a+1; b = b + (x%100); x = x/100; } printf("%d %d", a, b); }

Вопрос id:397229

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

Бейсик	Python
DIM X, Y, A, B AS INTEGER A = 0 B = 10 INPUT X WHILE X > 0 Y = X MOD 10 X = X \ 10 IF Y > A THEN A = Y IF Y < B THEN B = Y WEND PRINT A PRINT B	a = 0 b = 10 x = int(input()) while x > 0: y = x % 10 x = x // 10 if y > a: a = y if y < b: b = y print(a) print(b)
Паскаль	Алгоритмический язык
var x, y, a, b: integer; begin a := 0; b := 10; readln(x); while x > 0 do begin y := x mod 10; x := x div 10 if y > a then a := y; if y < b then b := y; end; writeln(a); writeln(b) end.	алг нач цел x, y, a, b a := 0 b := 10 ввод x нц пока x > 0 y := mod(x, 10) x := div(x, 10) если y > a то a := y все если y < b то b := y все кц вывод a, нс, b кон
Си
#include int main() { int x, y, a, b; a = 0; b = 10; scanf("%d", &x); while (x > 0) { y = x % 10; x = x / 10; if (y > a) a = y; if (y < b) b = y; } printf("%d %d ", a, b); }

Вопрос id:397230

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

Бейсик	Python
DIM X, Y, A, B AS INTEGER A = 10 B = 0 INPUT X WHILE X > 0 Y = X MOD 10 X = X \ 10 IF Y < A THEN A = Y IF Y > B THEN B = Y WEND PRINT A PRINT B	a = 10 b = 0 x = int(input()) while x > 0: y = x % 10 x = x // 10 if y < a: a = y if y > b: b = y print(a) print(b)
Паскаль	Алгоритмический язык
var x, y, a, b: integer; begin a := 10; b := 0; readln(x); while x > 0 do begin y := x mod 10; x := x div 10 if y < a then a := y; if y > b then b := y; end; writeln(a); writeln(b) end.	алг нач цел x, y, a, b a := 10 b := 0 ввод x нц пока x > 0 y := mod(x, 10) x := div(x, 10) если y < a то a := y все если y > b то b := y все кц вывод a, нс, b кон
Си
#include int main() { int x, y, a, b; a = 10; b = 0; scanf("%d", &x); while (x > 0) { y = x % 10; x = x / 10; if (y < a) a = y; if (y > b) b = y; } printf("%d %d ", a, b); }

Вопрос id:397231

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if M < x then begin

M:= (x mod 10) * 2;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397232

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

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 0 then

M:= M + x mod 10;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397233

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if (M < x) and (x mod 2 = 0) then begin

M:=x mod 10;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397234

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

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.

Вопрос id:397235

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

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.

Вопрос id:397236

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if M < x then begin

M:=x mod 10;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397237

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.

Вопрос id:397238

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) div 2;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397239

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

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.

Вопрос id:397240

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 0 then

M:= M + (x mod 10) div 2;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397241

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if M < x then begin

M:= M + (x mod 10) * 2;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397242

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

M:= M + x mod 10;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397243

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if (M < x) and (x mod 2 = 1) then begin

M:= (x mod 10) * 2;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397244

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

if x mod 2 = 0 then

M:= M + x mod 10;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397245

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if (M < x) and (x mod 2 = 1) then begin

M:= (x mod 10) * 2;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397246

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.

Вопрос id:397247

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.

Вопрос id:397248

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if (M < x) and (x mod 2 = 0) then begin

M:=x mod 10;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397249

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:=L+1;

if M < x then begin

M:=x mod 10;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397250

var x, L, M: integer;

begin

readln(x);

L:=0; M:=0;

while x > 0 do begin

L:= L + 1;

M:= M + x mod 10;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397251

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) div 2;

x:= x div 10;

end;

writeln(L); write(M);

end.

Вопрос id:397252

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.

Страница:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55