Задачи из ЕГЭ-№20
1) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.
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.
2) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 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 = 0 then
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L); write(M);
End.
3) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.
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.
4) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 14.
|
|
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.
5) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 7.
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.
6) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 6, а потом 5.
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.
Ниже записана программа. Получив на вход число , эта программа печатает два числа, и .
7) Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7.
var x, i, K, R, y: integer;
Begin
readln(x);
K:= 0; R:= 9;
y:= x mod 10;
while x > 0 do begin
K:= K + 1;
if R > x mod 10 then
R:= x mod 10;
x:= x div 10
end;
R:= y - R;
writeln(K); writeln(R)
End.
8) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.
var x, a, b: integer;
Begin
readln(x);
a:= 0; b:= 1;
while x > 0 do begin
a:= a + 1;
b:= b * (x mod 8);
x:= x div 8;
end;
writeln(a); write(b);
End.
9) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 6.
|
|
var x, a, b: integer;
Begin
readln(x);
a:= 0; b:= 1;
while x > 0 do begin
a:= a + 1;
b:= b * (x mod 6);
x:= x div 6;
end;
writeln(a); write(b);
End.
10) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 9.
var x, a, b: integer;
Begin
readln(x);
a:= 0; b:= 1;
while x > 0 do begin
a:= a + 1;
b:= b * (x mod 5);
x:= x div 5;
end;
writeln(a); write(b);
End.