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

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

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

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

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

Страница:
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 после выполнения данной программы?

?) 21

?) 40

?) 20

?) 42

Вопрос 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 после выполнения данной программы?

?) 30

?) 93

?) 90

?) 31

Вопрос 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?

?) 5

?) 15

?) 10

?) 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) после выполнения фрагмента программы?

?) 8

?) 4

?) 6

?) 2

Вопрос 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) после выполнения фрагмента программы?

?) 8

?) 4

?) 6

?) 2

Вопрос 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 кц кц

?) 40

?) 41

?) 45

?) 36

Вопрос id:397210

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

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

j := 1;

for i:=1 tо 10 do

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

s := j;

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

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

?) 10

?) 1

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

Вопрос 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;

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

?) -5050

?) -5000

?) 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;

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

?) -9900

?) -10000

?) -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;

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

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

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

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

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

Вопрос 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

?) -100

?) -200

Вопрос 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

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

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

Вопрос 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 после выполнения данной программы?

?) 22

?) 11

?) 110

Вопрос 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 после выполнения данной программы?

?) 550

?) 60

?) 100

?) 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

?) 110

?) 20

?) 30

Вопрос 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 после выполнения данной программы?

?) 60

?) 780

?) 100

?) 80

Вопрос 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

?) 12

?) 156

?) 30

Вопрос 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[5,5]

?) A[1,1]

?) A[1,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