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

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

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

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

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

Страница:
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:397253

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

Ниже записана программа. Получив на вход число 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:397254

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:397255

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

Бэйсик	Паскаль
Module Task Sub Main() Dim L As Integer = 4 Dim R(4) As Integer Dim N As Integer R.SetValue(6, 1) R.SetValue(10, 2) R.SetValue(7, 3) R.SetValue(3, 4) Pr1(L, R) N = F1(L, R) Console.Write(N) Console.WriteLine() End Sub Sub Pr1(ByVal L As Integer, ByRef R As Array) Dim i, n, t As Integer For i = 1 To L t = (R.GetValue(i) \ 2) * 4 R.SetValue(t Mod 5, i) Next End Sub Function F1(ByVal L As Integer, ByRef R As Array) As Integer Dim N, i, T N = 1 T = 1 For i = 1 To L N = N * R.GetValue(i) + T T = T + 2 Next Return N End Function End Module	Program Task; Uses crt; const L = 4; type atype = array [1..L] of integer; Var R : atype; N, p : integer; Procedure Pr1(L : integer; var R : atype ); var i,n,t : integer; begin for i:=1 to L do begin t:=(R[i] div 2)4; R[i]:=t mod 5; end; end; Function F1 (L : integer; R: atype) : integer; Var N, i, T : integer; begin N:=1; T:=1; for i:=1 to L do begin N:=NR[i]+T; T:=T+2; end; F1:=N; end; BEGIN R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3; Pr1(L, R); N:=F1(L,R); write(N); writeln; END.
Си	Алгоритмический
#include #include <stdlib.h> void Pr1(int L, int* R) { int i, n, t; for ( i=0; i < L; i++ ) { t = (R[i] / 2) * 4; R[i] = t % 5; } } int F1(int L, int* R) { int N, i, T; N = 1; T = 1; for (i = 0; i < L; i++ ) { N = N * R[i]+T;) T = T+2; } return N; } void main() { int L = 4; int* R = (int*)calloc(L, sizeof(int)); int N; R[0] = 6; R[1] = 10; R[2] = 7; R[3] = 3; Pr1(L, R); N = F1(L, R); printf("%d ", N); free(R); }	алг Задача нач цел L=4; целтаб R[1:L]; цел N R[1]:=6; R[2]:=10; R[3]:=7; R[4]:=3; Pr1(L, R) N:=F1(L, R) вывод N, нс кон алг Pr1(цел L, аргрез целтаб R[1:L]) нач цел i, n, t нц для i от 1 до L t:=div(R[i],2)4 R[i]:=mod(t, 5) кц кон алг цел F1(цел L, аргрез целтаб R[1:L]) нач цел N, i, T N:=1 T:=1 нц для i от 1 до L N:=NR[i]+T T:=T+2 кц знач:= N кон

Вопрос id:397256

Ниже приведены тексты одной и той же программы, записанные на четырех языках программирования. Что будет напечатано в результате выполнения этой программы

Бэйсик	Паскаль
Module Task Sub Main() Dim L As Integer = 4 Dim R(4) As Integer Dim N As Integer R.SetValue(5, 1) R.SetValue(9, 2) R.SetValue(6, 3) R.SetValue(2, 4) Pr1(L, R) N = F1(L, R) Console.Write(N) Console.WriteLine() End Sub Sub Pr1(ByVal L As Integer, ByRef R As Array) Dim i, n, t As Integer For i = 1 To L t = (R.GetValue(i) \ 2) * 4 R.SetValue(t Mod 5, i) Next End Sub Function F1(ByVal L As Integer, ByRef R As Array) As Integer Dim N, i, T N = 1 T = 1 For i = 1 To L N = N * R.GetValue(i) + T T = T + 2 Next Return N End Function End Module	Program Task; Uses crt; const L = 4; type atype = array [1..L] of integer; Var R : atype; N, p : integer; Procedure Pr1(L : integer; var R : atype ); var i,n,t : integer; begin for i:=1 to L do begin t:=(R[i] div 2)4; R[i]:=t mod 5; end; end; Function F1 (L : integer; R: atype) : integer; Var N, i, T : integer; begin N:=1; T:=1; for i:=1 to L do begin N:=NR[i]+T; T:=T+2; end; F1:=N; end; BEGIN R[1]:=5; R[2]:=9; R[3]:=6; R[4]:=2; Pr1(L, R); N:=F1(L,R); write(N); writeln; END.
Си	Алгоритмический
#include #include void Pr1(int L, int* R) { int i, n, t; for ( i=0; it = (R[i] / 2) 4; R[i] = t % 5; } } int F1(int L, int R) { int N, i, T; N = 1; T = 1; for ( i=0; iN = N R[i]+T;) T = T+2; } return N; } void main() { int L = 4; int R = (int*)calloc(L, sizeof(int)); int N; R[1] = 5; R[2] = 9; R[3] = 6; R[4] = 2; Pr1(L, R); N = F1(L, R); printf("%d ", N); free(R); }	алг Задача нач цел L=4; целтаб R[1:L]; цел N R[1]:=5; R[2]:=9; R[3]:=6; R[4]:=2; Pr1(L, R) N:=F1(L, R) вывод N, нс кон алг Pr1(цел L, аргрез целтаб R[1:L]) нач цел i, n, t нц для i от 1 до L t:=div(R[i],2)4 R[i]:=mod(t, 5) кц кон алг цел F1(цел L, аргрез целтаб R[1:L]) нач цел N, i, T N:=1 T:=1 нц для i от 1 до L N:=NR[i]+T T:=T*3 кц знач:= N кон

Вопрос id:397257

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

Бэйсик	Паскаль
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	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:397258

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

Бэйсик	Паскаль
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	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:397259

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

Бэйсик	Паскаль
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:397260

Бэйсик	Паскаль
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:397261

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

Бэйсик	Паскаль
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	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 кон

Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 5.

Вопрос id:397262

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

Бейсик	Паскаль
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	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 кон

Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 14.

Вопрос id:397263

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

Бейсик	Паскаль
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	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:397264

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

Бейсик	Паскаль
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<stdio.h> 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 кон

Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 8.

Вопрос id:397265

Ниже на 4-х языках записан алгоритм. Получив на вход число х, этот алгоритм печатает два числа а и Ь. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 2, а потом 35.

Бэйсик	Паскаль
DIM X А, В AS INTEGER INPUT X А=0 : B=1 WHILE X > 0 А = A+1 В = В * (X MOD 10) X = X \ 10 WEND PRINT А PRINT В	var х, а, b: integer; begin readln (x); а := 0 ; b := 1; while x>0 do begin a := a + 1; b : = b * (x mod 10); х := 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); }	алг нач цел х, a, b ввод x а := 0; Ь := 1 нц пока х>0 а := а+1 b := b * mod(х, 10) х := div(х, 10) кц вывод а, нc, b кон

Вопрос id:397266

Бэйсик	Паскаль
DIM X А, В AS INTEGER INPUT X А=0 : B=1 WHILE X > 0 А = A+1 В = В*(X MOD 10) X = X \ 10 WEND PRINT А PRINT В	var х, а, b: integer; begin readln (x) ; а: = 0 ; b : = 1; while x>0 do begin а : = a + 1 ; b : = b*(x mod 10) ; х : = 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); }	алг нач цел х, a, b ввод x а : = 0; Ь : = 1 нц пока х>0 а := а+1 b := b*mod(х,10) х:=div(х,10) кц вывод а, нc, b кон

Вопрос id:397267

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

Бейсик	Паскаль
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:397268

Бэйсик	Паскаль
DIM X, A, B AS INTEGER INPUT X A = 0: B = 0 WHILE X > 0 A = A + 2 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 + 2; 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 + 2; b = b + (x%10); x = x / 10; } printf("%d %d", a, b); }	алг нач цел x, a, b ввод x a:=0; b:=0 нц пока x > 0 a := a + 2 b := b+mod(x,10) x := div(x,10) кц вывод a, нс, b кон

Вопрос id:397269

Бэйсик	Паскаль
DIM X, A, B AS INTEGER INPUT X A = 0: B = 0 WHILE X > 0 A = A + 2 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 + 2; 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 + 2; b = b + (x%10); x = x / 10; } printf("%d %d", a, b); }	алг нач цел x, a, b ввод x a:=0; b:=0 нц пока x > 0 a := a + 2 b := b+mod(x,10) x := div(x,10) кц вывод a, нс, b кон

Вопрос id:397270

Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа - это числа 7 и 42. Какое наибольшее число может быть напечатано третьим?

var x, у, z:= integer;

var r, a, b:= integer;

begin

readln(x, у);

if у >x then begin

z:= x;x:= y;y:= z;

end;

a:= x; b:= у;

while b>0 do begin

r := a mod b;

a := b;

b := r;

end;

writeln (a);

writeln(x);

write(y);

end.

Вопрос id:397271

Ниже записан алгоритм. После выполнения алгоритма было напечатано 3 числа. Первые два напечатанных числа - это числа 11 и 66. Какое наибольшее число может быть напечатано третьим?

var x, у, z:= integer;

var r, a, b:= integer;

begin

readln(x, у);

if у >x then begin

z:= x;x:= y;y:= z;

end;

a:= x; b:= у;

while b>0 do begin

r := a mod b;

a := b;

b := r;

end;

writeln (a);

writeln(x);

write(y);

end.

Вопрос id:397272

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

Бейсик	Паскаль
DIM N, q, i AS INTEGER INPUT N FOR i = 1 TO N - 1 IF N MOD i = 0 THEN q = i NEXT i PRINT q	var N, q, i: integer; begin read(N); for i : = 1 to N - 1 do begin if N mod i = 0 then q : = i end; write(q) end.
Си	Алгоритмический язык
#include void main() { int N, q, i; scanf("%d", &N); for (i = 1; i <= N - 1; i + +) { if (N%i == 0) q = i; } printf("%d", q); }	алг нач цел N, q, i ввод N нц для i от 1 до N - 1 если mod(N, i) = 0 то q : = i все кц вывод q кон

Вопрос id:397273

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

Бейсик	Паскаль
DIM N, q, i AS INTEGER INPUT N FOR i = 1 TO N - 1 IF N MOD i = 0 THEN q = i NEXT i PRINT q	var N, q, i: integer; begin read(N); for i : = 1 to N - 1 do begin if N mod i = 0 then q : = i end; write(q) end.
Си	Алгоритмический язык
#include void main() { int N, q, i; scanf("%d", &N); for (i = 1; i <= N - 1; i + +) { if (N%i == 0) q = i; } printf("%d", q); }	алг нач цел N, q, i ввод N нц для i от 1 до N - 1 если mod(N, i) = 0 то q : = i все кц вывод q кон

Вопрос id:397274

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

Бейсик

DIM X, А, В AS INTEGER

INPUT X

А = 0: В = 0

WHILE X > 0

А = А+1

В = В + (X MOD 100)

X = Х\100

WEND

PRINT А

PRINT В

Паскаль

var х, a, b: integer;

begin

readln(х);

а : = 0; b : = 0;

while х > 0 do

begin

а := а+1;

b := b + (х mod 100) ;

х := х div 100;

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%100);

x = x/100;

}

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

}

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

алг

нач

цел x, a, b ввод x

a:=0; b:=0 нц

пока x > 0 a := a+1

b := b+mod(x,100)

x := div(x,100)

кц

вывод а, не, b

кон

Вопрос id:397275

Бейсик

DIM X, А, В AS INTEGER

INPUT X

А = 0: В = 0

WHILE X > 0

А = А+1

В = В + (X MOD 100)

X = Х\100

WEND

PRINT А

PRINT В

Паскаль

var х, a, b: integer;

begin

readln(х);

а : = 0; b : = 0;

while х > 0 do

begin

а := а+1;

b := b + (х mod 100);

х := х div 100;

end;

writeln(a);

write(b);

end.

Си

#include

void main()

{

int x, a, b;

scanf("Id", &x);

a = 0; b = 0;

while (x > 0) {

a = a+1;

b = b + (x%100);

x = x/100;

}

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

}

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

алг

нач

цел x, a, b

ввод x

a:=0; b:=0

нц пока x > 0

a := a+1

b := b+mod(x,100)

x := div(x,100)

кц

вывод а, нс, b

кон

Вопрос id:397276

Ниже на четырёх языках записан алгоритм. Получив на вход число , этот алгоритм печатает два числа:а и b. Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 2. Допускается диапазон значений для величин целого типа: от −2³¹ до 2³¹

Вопрос id:397277

Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа:a и b . Укажите наибольшее из таких чисел x , при вводе которых алгоритм печатает сначала 2, а потом 3. Допускается диапазон значений для величин целого типа: от −2³¹ до 2³¹ — 1.

Вопрос id:397279

Вопрос id:397280

Бейсик	Паскаль
DIM X, А, В, С AS INTEGER INPUT X А = 0: В = 10 WHILE X > 0 С = X MOD 10 А = А + С IF С < В THEN В = С X = X \ 10 WEND PRINT А PRINT В	var x, a, b, c: integer; begin readln(x); a := 0; b := 10; while x>0 do begin с := x mod 10; a := a+c; if c < b then b := c; x := x div 10; end; writeln(a); write(b); end.
Си	Алгоритмический
#include <stdio.h> void main() { int x, a, b, c; scanf("%d", &x); a = 0; b = 10; while (x > 0) { с = x%10; a = a+c; if (c < b) b = c; x = x /10; } printf("%d %d", a, b); }	алг нач цел х, а, Ъ, с ввод X а := 0; b := 10 нц пока х>0 с := mod(х,10) а := а+с если с<Ь то b := с все х := div(х,10) кц вывод а, не, b кон

Вопрос id:397281

Ниже на четырёх языках записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 2. Допускается диапазон значений для величин целого типа: от −2³¹ до 2³¹ — 1.

Вопрос id:397283

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

Вопрос id:397285

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

Вопрос id:397286

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

Вопрос id:397287

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

Вопрос id:397288

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

Вопрос id:397289

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

Вопрос id:397290

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

Вопрос id:397291

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

Вопрос id:397292

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

Вопрос id:397293

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

Вопрос id:397294

Бейсик	Паскаль
DIM X, А, В AS INTEGER INPUT X А = 0: В = 0 WHILE X > 0 A = A + 1 B = B + (X MOD 10) X = X \ 10 WEND PRINT А PRINT В	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); }	алг нач цел х, а, b ввод X а := 0; b := 0 нц пока х>0 a := a+1 b := b+mod(x,10) x := div(x,10) кц вывод а, нc, b кон

Вопрос id:397295

Бейсик	Паскаль
DIM X, А, В AS INTEGER INPUT X А = 0: В = 0 WHILE X > 0 A = A + 1 B = B + (X MOD 10) X = X \ 10 WEND PRINT А PRINT В	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); }	алг нач цел х, а, b ввод X а := 0; b := 0 нц пока х>0 a := a+1 b := b+mod(x,10) x := div(x,10) кц вывод а, нc, b кон

Вопрос id:397296

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

Вопрос id:397297

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

Вопрос id:397298

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

Вопрос id:397299

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

Вопрос id:397300

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

Вопрос id:397301

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

Вопрос id:397302

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

Вопрос id:397303

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

Бейсик	Паскаль
DIM X, A, B AS INTEGER INPUT X A=0: B=0 WHILE X > 0 A = A+1 IF B < (X MOD 8) THEN B = X MOD 8 END IF X = X \ 8 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; if b < (x mod 8) then b:=x mod 8; x:=x div 8; 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 (b < (x%8){ b = x%8; } x = x/8; } printf("%d %d", a, b); }	алг нач цел x, a, b ввод x a:=0; b:=0 нц пока x>0 a:=a+1 если b < mod(x,8) то b:=mod(x,8) все x:=div(x,8) кц вывод a, нс, b кон

Вопрос id:397304

Бейсик	Паскаль
DIM X, A, B AS INTEGER INPUT X A=0: B=0 WHILE X > 0 A = A+1 IF B < (X MOD 8) THEN B = X MOD 8 END IF X = X \ 8 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; if b < (x mod 8) then b:=x mod 8; x:=x div 8; 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 (b < (x%8){ b = x%8; } x = x/8; } printf("%d %d", a, b); }	алг нач цел x, a, b ввод x a:=0; b:=0 нц пока x>0 a:=a+1 если b < mod(x,8) то b:=mod(x,8) все x:=div(x,8) кц вывод a, нс, b кон

Вопрос id:397305

Бейсик	Паскаль
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 кон

Страница:
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